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INTRODUCTION 


The  Naval  Weapons  Center  has  developed  a computer  program,  often  referred  to  as  tire  NWC 
thcrmochcmical  program  or  the  propellant  evaluation  program  (PEP),  for  the  calculation  of  high- 
temperature  thermodynamic  properties  and  pertormance  characteristics  of  propellant  systems.  This 
report  is  a summary  of  the  methods  and  equations  used  in  the  program,  which  will  handle  a 
maximum  of  12  chemical  elements  and  200  combustion  products.  Flame  temperature,  chemical 
composition,  enthalpy,  entropy,  specific  heat  ratio  and  molecular  weight  of  both  the  combustion 
chamber  and  exhaust,  frozen  and  shifting  equilibrium,  specific  impulse,  boost  velocities,  thrust 
coefficient,  characteristic  velocity,  and  exhaust  gas  velocity  can  be  computed  with  this  program.  The 
assumptions  made,  the  limitations  imposed,  and  the  input  data  required  for  the  solution  of  a specific 
problem  by  use  of  this  program  are  discussed  in  detail.  The  appendices  provide  a working  guide  for 
those  using  the  program  and  give  examples  of  computer  inputs. 


BACKGROUND 


NWC  Program  Development 

The  NWC  thermochemical  program  did  not  come  suddenly  into  being.  As  early  as  1951 
thcrmochcmical  computations  were  performed  at  NWC  (formerly  NOTS)  when  Dr.  W.  S.  McEwan  and 
S.  Skolnik  developed  and  reported  an  approach  using  an  analog  computer.  Dr.  D.  S.  Villars  reported 
his  reaction-adjustment  method  in  1960.  The  same  year  H.  N.  Browne,  Jr.,  completed  a program  using 
a method  reported  by  NASA.  Mary  Williams  and  Dr.  Howard  Shomate  contributed  toward  the 
automation  and  building  of  an  accurate  and  usable  data  bank.  In  1964  the  author  combined  some  of 
the  ideas  of  Browne  and  Villars  (who  had  never  collaborated  with  each  other)  into  the  outer  skeleton 
of  the  Browne  program.  At  the  same  time  a new  method  of  handling  condensed  species  put  an  end 
to  convergence  failures.  In  1968  some  important  suggestions  were  made  by  Professors  W.  R,  Smith 
and  R.  W.  Missen,  who  had  developed  their  own  program  at  the  University  of  Toronto  using  the 
reaction-adjustment  method.  (A  later  section  of  this  report  is  devoted  to  a discussion  of  their  work.) 
Since  that  time  the  NWC  program  has  continued  to  evolve  in  the  direction  of  data  automation  and 
new  applications. 


General  Development  of  Thermochemical  Programs 

In  the  past  20  years  the  computation  by  high-speed  digital  computers  of  high-temperature 
chemical  equilibria  has  become  one  of  the  important  applications  of  computers.  It  is  a challenging 
application,  because  of  the  large  sets  of  nonlinear  algebraic  equations  that  must  be  simultaneously 
solved  and  because  of  the  necessity  of  devising  computer  codes  general  enough  to  handle  any 
particular  chemical  system1.  There  have  been  three  historic  approaches  to  the  problem. 


Western  States  Section  of  the  Combustion  Institute.  Proceedings  oj'  the  First  Conference  on  Kinetics. 
Equilibria  and  Performance  of  High  Tumiierature  Systems,  cd.  by  G.  Bahn  and  E.  Zuckowsky.  Washington,  D.C., 
Butterworths  Scientific  Publications,  1960. 
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One  approach,  presented  by  White,  et  al..  is  directly  motivated  by  the  free-cnergy  criterion  for 
chemical  equilibrium2.  Tire  resulting  numerical  procedure  is  the  method  of  steepest  descent,  which  is 
a general  method  for  the  numerical  solution  of  nonlinear  algebraic  equations. 

The  second  approach,  presented  bv  Brinkley3,  uses  equilibrium  constants  and  for  purposes  of 
background  will  be  described  in  some  detail.  First,  a “basis"  is  chosen.  A basis  is  a subset  of 
molecular  species  (also  called  components)4.  It  contains  as  many  species  as  there  are  chemical 
elements,  and  from  it  all  other  species  may  be  formed  by  chemical  reaction.  A set  of  equations  then 
establishes  the  equilibrium  relationship  of  each  nonbasis  species  to  the  basis.  Another  set  of  equations 
establishes  the  gram-atom  amount  of  each  chemical  element.  Both  sets  of  equations  are  solved 
simultaneously  by  the  Newton-Raphson  method,  which  is  a general  method  for  the  numerical  solution 
of  nonlinear  algebraic  equations. 

Interesting  variations  in  the  latter  method  are  presented  by  Huff  et  al.5  and  Browne6 7 8.  The 
latter,  in  particular,  introduces  the  concept  of  the  “optimized"  basis,  in  which  the  components  are 
present  ir,  the  greatest  possible  molar  amounts.  Browne’s  computer  code  for  the  equilibrium-constant 
approach  was  successfully  used  from  1960  to  1964  by  the  Naval  Weapons  Center,  then  known  as  the 
U.S.  Naval  Ordnance  Test  Station  (NOTS). 

The  reaction-adjustment  method  of  Villars  is  the  third  approach7,8.  This,  too,  was  a method 
suggested  early  in  the  development  of  computer  codes  but  not  widely  used  before  ihe  development 
ot  the  present  program.  Its  theory  is  simple:  The  chemical  system  is  divided  into  a number  of 
subsystems,  each  relating  a nonbasis  species  to  the  basis.  The  subsystem  with  the  greatest  discrepancy 
in  its  equilibrium  relationship  is  corrected  stoichiometrically.  In  this  way  the  gram-atom  amounts 
(chosen  correctly  at  the  start)  do  not  change.  The  reason  for  convergence  is  clear:  Each  iteration  is 
equivalent  to  arresting  all  possible  reactions  but  one  and  allowing  that  one  to  proceed  according  to 
the  law  of  mass  action.  This  possible  (though  not  plausible)  kinetic  model  can  only  lead  in  the 
direction  of  equilibrium. 

In  its  computational  aspects  the  method  presented  by  Villars  has  both  advantages  and 
disadvantages.  Unlike  the  former  methods,  it  docs  not  require  the  inversion  of  large  matrices.  This 
simplifies  the  coding  and  reduces  the  required  computer  memory.  On  the  other  hand,  the  speed  of 
the  method  is  greatly  dependent  on  the  choice  of  the  basis.  It  is  admittedly  quite  slow  when 
components  are  chosen  that  are  present  only  in  small  molar  amounts, 


2W.  B.  White.  S.  M.  Johnson,  and  G.  1).  Dantzig.  "Chemical  Equilibrium  in  Complex  Mixtures.”  J.  Chou. 
Phys.,  Vol.  28  (May  1958).  pp.  751-5. 

3S.  R.  Brinkley,  Jr.  “Calculation  of  the  Equilibrium  Composition  of  Systems  of  Many  Constituents,”  J.  Chon. 
Phys..  Vol.  15  (1947),  pp.  107-10. 

41I.  J.  Kandiner  and  S.  R.  Brinkley.  ‘Calculation  of  Complex  Equilibrium  Relations."  hid.  Png.  Chan. 
Vol.  42  (1950),  pp.  850-5. 

^National  Advisory  Committee  on  Aeronautics.  General  Method  and  Thermodynamic  Tables  for  Computation 
of  Equilibrium  Composition  and  Temperature  of  Chemical  Reactions,  by  V.  N.Huti,  S.  Gordon,  and  V.  E,  Morrell. 
Washington,  D.C..  NACA  1951.  (NACA  Report  1037.) 

6Nava!  Ordnance  Test  Station.  The  Theoretical  Computation  of  Equilibrium  Compositions.  Thermodynamic 
Properties  and  Performance  Characteristics  of  Propellant  Systems,  by  H.N.  Browne  Jr.,  M.  M.  Williams,  and 
D.  R.  Cruise.  China  Lake,  Calif.,  NOTS,  1960.  (NAVWEPS  Report  7043.  NOTS  IT  2434,  publication  UNCLASSIFIED.) 

7D.  S.  Villars.  “A  Method  of  Successive  Approximations  for  Computing  Combustion  Equilibria  on  a High 
Speed  Digital  Computer,”  J.  Chem.  Phys.,  Vol.  63  (1959),  pp.  521-5. 

8D,  S.  Villars.  “Computation  of  Complicated  Combustion  Equilibria  on  a High-Speed  Digital  Computer,”  in 
Proceedings  of  the  First  Conference  on  Kinetics.  Fn utlibria  and  Performance  of  High  Tem/rerature  Systems,  ed.  by 
G.  Bahn  and  E.  Zuckowsky.  Washington.  D.C..  Buttcrworths  Scientific  Publications.  1960. 
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It  was  decided  to  try  Villars’  method  and  to  choose  an  optimum  basis  by  Browne’s  method. 
The  automatic  choosing  of  the  optimum  basis  is  not  difficult  to  code,  and  it  serves  two  purposes:  It 
greatly  speeds  convergence,  and  it  relieves  the  user  of  the  burden  of  choosing  the  basis  himself. 


ORGANIZATION  OF  REPORT 

The  next  three  sections  of  this  report  describe  the  combination  of  Villars’  and  Browne’s 
methods  for  computing  a chemical  composition  at  a given  pressuie  and  temperature.  The  description 
is  divided  into  three  parts.  The  first  part  presents  in  detail  the  basis  optimization  technique  used, 
which  differs  only  slightly  from  that  reported  by  Browne.  The  second  part  presents  the  procedures 
for  determining  equilibrium,  which  follow  essentially  the  method  of  Villars,  except  for  some  suitable 
modifications  to  increase  computing  speed.  The  third  part  presents  certain  manipulations  with 
condensed  phases  that  increase  the  generality  of  the  method.  The  remaining  five  sections  describe 
various  aspects  of  the  method.  For  a concise  presentation,  the  procedures  are  described  in  the 
notation  of  linear  algebra. 

The  appendices  describe  how  to  run  the  program  on  the  computer. 


BASIS  OPTIMIZATION 


Consider  a system  which  contains  S chemical  elements  and  N molecular  species  such  that  N is 
greater  than  S.  Relating  the  species  to  the  elements  is  a molecular  composition  matrix  C.  Here  the 
individual  elements  cfc  state  how  many  atoms  of  the  A'th  element  arc  contained  in  a molecule  of  the 
/th  species. 

Let  any  arbitrary  choice  of  S molecular  species  be  denoted 

HI)  i < i < s 

where  the  subset  of  ;’s  chosen  is  considered  to  be  a function  of  a dummy  index/.  A basis  is  formed 
by  Hi)  if  and  only  if  the  following  relationship  exists: 

\b\  ± 0 (1) 

where  the  vertical  bars  denote  the  determinant  of  the  matrix  B and  where  the  elements  of  B are 
defined  as  follows: 


bjk  ~ Ci(l).k 


1 < i S 
1 < k < S 


(2) 


Equation  2 involves  three  indexes,  i,  j,  and  k,  where  / is  not  independent  because  of  its  functional 
relationship  to  j.  This  equation  describes  the  formation  of  the  square  basis  matrix  B by  extracting 
some  of  the  rows  of  the  latger,  composition  matrix  C,  namely  those  rows  corresponding  to  the 
chosen  species. 
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The  optimization  problem  requires  that  i(jj  be  chosen  to  form  a basis  ana  that  the 
corresponding  molar  amounts  Hjfjj  be  as  large  as  possible.  This  can  be  done  by  a process  of  trial  and 
error.  First  the  molecular  species  must  be  so  sorted  that  the  molar  amounts  are  in  descending  order. 
Here  the  species  subscript  / becomes  itself  a function  of  a subscript  m,  such  that 


h 


> 


> Hi 


> ...  > n. 


in 


'm+1 


‘N 


(3) 


The  basis  is  now  found  as  follows.  First  /j  is  chosen  to  be  the  first  basis  species  and  the  / ^ st 
row  of  the  C matrix  is  put  into  the  first  row  of  the  B matrix.  Next  the  j and  m indexes  are  set  to 
the  value  2.  The  third  step  is  to  test  im  as  an  acceptable  basis  species.  This  is  done  by  inserting  the 
im th  row  of  tlie  C matrix  into  the  yth  row  of  the  thus  far  incomplete  B matrix,  If  there  is  linear 
dependence  among  the  rows  of  the  incomplete  B matrix,  the  test  fails,  and  the  m index  is  increased 
by  unity.  If  there  is  no  linear  dependence,  itn  becomes  the  /th  basis  species,  which  is  to  say,  iff)  and 
both  the  j and  m indexes  are  increased  by  unity.  From  here  the  process  returns  to  the  third  step 
until  i(S)  is  determined. 

Browne  established  linear  dependence  by  the  following  relationship: 


\fBinc)  (Binc)T  i = 0 (4) 

where  T denotes  transposition  and  &nc  is  the  incomplete  B matrix.  However,  it  was  found  that  the 
test  could  be  performed  much  faster  by  using  the  Gram-Schmidt  construction.  This  construction  is 
expressed  as  follows: 


bV,hnh  / 


2 < 2 < / 

1 < n < j • 1 
1 <k  <S 


(5) 


where  /; replaces  the  element  and  n and  2 are  dummy  indexes.  If  all  elements  of  the  j th  row 
are  zero  after  the  construction,  there  is  linear  dependence,  and  the  test  fails.  The  underlying  theory 
of  linear  dependence  and  the  Gram-Schmidt  construction  are  presented  in  Stoll^  and  other  texts  on 
linear  algebra. 

The  complete  B matrix  is  determined  at  the  end  of  the  optimization  process,  and  the  i>  matrix 
of  reaction  coefficients  is  expressed 

n = CBA  (6) 

Equilibrium  constants  may  then  be  computed  from  the  elements  of  the  v matrix  as  follows: 


-1  s 

^ K’i  =RT  ’ S V‘i g‘U^ 

/-I 

where  gj  is  the  standard  Gibbs  free  energy  of  the  .th  species  at  the  given  temperature  T. 


(7) 


9 


R.  Stoll.  Linear  Algebra  and  Matrix  Theory. 


New  York.  McGraw-Hill,  1952.  Chapters,  especially  section  87. 
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PROCEDURES  FOR  DETERMINING  EQUILIBRIUM 


The  equilibrium  procedure  requires  that  a first  estimate  of  the  equilibrium  composition  be 
given.  This  estimate  need  not  closely  approximate  the  final  solution,  but  it  must  express  the  desired 
gram-atom  amount  of  each  chemical  element.  This  expression  can  be  accomplished  in  many  ways. 
One  way,  easy  to  code,  is  to  set  the  molar  amount  of  one  monatomic  species  of  each  chemical 
element  to  the  desired  gram-atom  amount,  then  set  the  molar  amounts  of  the  rest  of  the  species  at 
zero  (or  at  negligibly  small  values).  This  particular  way  requires  that  the  monatomic  species  appear  in 
the  formulation. 

The  general  iterative  procedure  assumes  that  the  gram-atom  amounts  are  correct  and  that  the 
optimum  basis  has  been  chosen  for  the  current  estimate  of  the  molar  amounts.  The  reaction 
coefficient  matrix,  v,  and  the  array  of  equilibrium  constants,  Kj . are  therefore  available  from 
liquations  6 and  7.  A pass  is  made  through  the  reaction  (nonbasis)  species  to  determine  whether  the 
proper  equilibrium  relationships  arc  met.  If  not,  the  molar  amounts,  arc  stoichiometrically 
corrected.  The  basis  is  again  optimized  whenever  the  current  basis  is  no  longer  optimum.  The  details 
are  described  below  using  the  conventions  of  Prigogine10 

The  chemical  reaction  which  yields  the  /th  reaction  species  from  the  basis  may  be  written  as 


S 

2v,(/)+/  (8) 

/-i 

therefore,  a stoichiometric  change  in  the  extent  of  reaction,  A£,  causes  the  following  alterations  in 
composition. 

«/  = «/  + A*  (9) 

n'i(j)  = ni(i)  * vif*  \<i<S  (10) 

where  the  primed  denotes  the  molar  amounts  after  the  change.  This  change,  by  definition,  does 
not  alter  the  gram-atom  amount  of  any  chemical  element. 

Basis  optimization  guarantees  that  n-  is  smaller  than  any  of  the  in  the  basis  for  which 
v-  =£  0.  In  actuality  most  reaction  species  are  smaller  in  molar  amount  by  many  orders  of  magnitude 
than  the  basis  species  from  which  they  are  formed.  The  gaseous  species  more  than  two  order  of 
magnitude  smaller  are  arbitrarily  classified  as  minor  species,  and  the  res!  of  the  nonbasis  species, 
including  condensed  species  of  any  molar  amount,  are  classified  as  major  species. 

The  correct  equilibrium  relationship  for  the  /th  reaction  is  expressed  as 
S 

~ E yi(j)  vij  'i"  (Ani(j)]  + 7 / ««  04''/)  = (11) 

/=  1 


'^l.  Piigogine  and  R.  Delay.  Chemical  Thermodynamics,  translated  by  D.  I.vcrett.  London 
and  Co.,  1954. 


Longmans,  Green 
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where  (he  phase  parameter  7(-  takes  the  value  unity  if  the  ;th  species  is  a gas  and  the  value  zero  if  it 
is  condensed,  and 


E v'/ 


1=1 


where  P is  the  given  pressure.  If  the  current  molar  guesses  are  incorrect,  the  terms  on  the  left  wili 
equal  some  value  other  than  C;i  K-  and  are  denoted  'in  (?,■  The  iterative  procedure  obviously  must 
adjust  the  values  of  rij  until  the  values  of  <2/  approach  those  of  Kj  within  a specified  tolerance.  The 
log  of  the  equilibrium  constant  may  be  differentiated  with  respect  to  the  reaction  parameter  J 
(assuming  A to  be  constant),  yielding 


fS  , \ 

E ^ Ki> 

W=1  / 


(12) 


An  estimate  of  the  stoichiometric  correction  for  a major  species  is  obtained  by  applying 
Newton’s  method  of  locating  roots,  which  is  expressed  by  the  following  approximate  form  of 
liquation  12: 


A$  £ (Bw  Kj  ■ 


(13) 


Equations  9 and  10  are  then  applied.  (In  practice,  AJ  is  not  allowed  to  take  values  leading  to 
negative  n (-.)  All  major  species  arc  corrected  by  this  method  during  the  iteration  pass.  This  differs 
from  the  method  used  by  Villars,  who  applied  the  correction  only  where  the  discrep- 
ancy | in  Kj  ■ in  Qj  | was  greatest.  The  modification  is  justified  for  two  reasons-(l)  little  additional 
computing  time  is  required  to  actually  make  the  correction  after  the  discrepancy  is  determined,  and 
(2)  the  basis  optimization  has  minimized  the  interaction  effect  that  a given  correction  has  on  the 
other  equilibrium  relationships. 

An  estimate  of  the  stoichiometric  correction  for  minor  species  is  obtained  as  follows: 


»;  = "j  (Kj/Qj) 

(14) 

AJ  = n)  - Hi 
* * 

(15) 

Equation  10  is  then  applied.  This  approach  assumes  that  the  error  in  A'(-  is  contained  entirely  in  the 
value  of  iij.  This  is  nearly  true  for  minor  species,  because  a large  relative  change  in  rij  is 
accomplished  by  a small  AJ,  and  there  is  no  appreciable  change  in  the  basis.  This  separate  analysis  of 
minor  species  also  differs  from  that  of  Villars.  Again  there  are  advantages.  Equations  14  and  15 
require  less  computing  time  than  Equation  13.  Then,  too,  the  former  equations  compute  the  molar 
amounts  of  the  minor  species  to  a high  degree  of  accuracy  (four  or  more  significant  decimal  places) 
even  when  the  relative  molar  amounts  arc  quite  small  (e.g.,  10’^  or  lO'^O).  (This  is  useful  in  some 
applications  involving  ionic  species.)  It  was  also  found  that  computer  time  is  saved  by  correcting  the 
minor  species  only  on  every  fourth  iteration  puss,  unless  convergence  is  attained  among  the  major 
species  in  the  meantime.  The  variable  A,  defined  above,  is  computed  once  at  the  start  of  every 
iteration  pass. 
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Convergence  was  considered  to  be  attained  when  all  binding  equilibrium  relationships  passed  the 
following  tests: 


(major  species) 

1 (1 

• W 1 

< 10'5 

(16) 

(minor  species) 

|0 

- W i 

< 10'4 

(17) 

However,  not  all  equilibrium  relationships  are  binding.  1'his  is  discussed  in  the  next  section. 


DELETION  OF  CONDENSED  PHASES 


The  formulation  of  the  chemical  equilibrium  problem,  as  usually  presented,  is  not  general 
enough  to  completely  describe  the  behavior  of  condensed  phases.  To  overcome  this  weakness  special 
procedures  must  be  used.  The  following  two  procedures  are  particularly  suited  to  the  method  of 
determining  equilibrium  presented  above. 

A 

When  the  computed  amount  of  a condensed  species  becomes  negligibly  small  (say,  10  ) and 
in  - in  Qj  is  negative,  no  correction  is  applied,  and  the  equilibrium  relationship  is  no  longer 
binding.  In  this  way  a phase  is  deleted  and  a degree  of  freedom  is  gained  in  accordance  with  the 
phase  rule  1 1 , 

When  a reaction  occurs  entirety  among  condensed  species,  tire  denominator  in  Equation  13  is 
zero.  In  this  situation  the  phase  rule  states  tl.at  at  least  one  of  the  involved  species  cannot  be 
present  in  any  molar  amount  (if  we  ate  free  to  specify  pressure  and  temperature).  The  situation  is 
handled  by  ignoring  Equation  13  and  determining  a value  of  A£  that  takes  the  sign  of  Err  Kj  - in  Qj 
and  that  has  a magnitude  not  leading  to  negative  molar  amounts  when  Equations1)  and  10  are 
applied.  This  is  symbolical!)  expressed  as 


A£  = sign  (in  Kj  ■ in  Qj)  min  j | • »/(2)/ 1 "/2  | "f(S)/lI'.s| 


(18) 


in  this  manner  the  molar  amount  of  at  least  one  condensed  species  is  reduced  to  zero. 

When  these  procedures  were  included  in  the  computer  code,  correct  solutions  were  obtained 
even  iit  extremely  difficult  cases.  In  fact,  correct  solutions  can  be  obtained  where  no  gas  phase  is 
present. 


1 1 


A. 


l indlay.  Phase  Rule. 


New  York,  Hover.  1951. 
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NUMERICAL  EXAMPLES  OF  BASIS  AND 
EQUILIBRIUM  CALCULATIONS 


Considci  a system  containing  1 granvatom  of  carbon  and  2 gram-atoms  of  oxygen.  The 
following  combustion  species  may  be  chosen  ai.d  associated  with  the  composition  matrix  shown 
below: 


_/ 

Species 

£ 

Q 

1 

C 

“l 

0* 

2 

C3 

3 

0 

3 

0 

0 

1 

4 

°2 

0 

2 

= C (composition  matrix) 

5 

CO 

1 

1 

6 

co2 

1 

2 

7 

C(graphite) 

1 

0 

One  way  to  choose  the  initial  composition  guess  is  to  set  the  monatomic  gases  to  the  desired 
gram-atom  amounts  and  the  rest  of  the  species  to  zero  as  follows: 


Species 

i_ 

Hi 

C 

1 

1.0 

c3 

2 

.0 

0 

3 

2.0 

02 

4 

.0 

CO 

5 

.0 

co2 

6 

.0 

C(graphitc) 

7 

.0 

Obviously  the  best  basis  for 

these  composition  values 

is: 

Species 

i 

an 

C 

1 

i 

0 

2 

3 

for  these  are  the  species  in  greatest  concentration  from  which  all  other  species  may  be  formed.  This 

is  the  basis  the  program  would  use 

on  the  first  iteration. 

For  a more  interesting  example  of 

a basis  calculation,  let 

us  say  that  at  a later  iteration  the  current 

composition  guesses  are: 

Species 

1 

1 L 

C 

1 

0.4874996 

C3 

2 

0.0045000 

0 

3 

0.5005000 

02 

4 

0.5000000 

CO 

5 

0.4985000 

co2 

6 

0.0005000 

C(graphite) 

7 

0.0000004 

1C 
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(If  previous  calcula.ions  arc  correct,  these  values  will  still  reflect  the  proper  gram-atom  amounts  of  C 
and  0.) 

These  may  be  sorted  into  the  order  of  decreasing  molar  concentration: 


Species 

m 

[m 

ni 

m 

0 

1 

3 

0.5005000 

°2 

2 

4 

0.5000000 

CO 

3 

5 

0.4985000 

c 

4 

1 

0.4874996 

C3 

5 

2 

0.0045000 

co2 

6 

6 

0.0005000 

C(graphite) 

7 

7 

0.0000004 

Species  / , (0)  is  immediately  chosen  as  the  first  basis  species  and  the  / • st  (here  the  third)  row 
is  taken  from  the  composition  matrix  to  become  the  first  row  of  the  basis  matrix. 

j 0 1 = B>»c 

Next  the  /-,nd  (here  the  4th)  row  of  the  C matrix  is  placed  into  the  H matrix: 

= B (to  be  tested) 

Although  linear  dependence  is  obvious  in  this  case,  the  program  actually  performs  the  Gram-Schmidl 
construction  which  transforms  the  second  row  as  follows: 


Because  both  elements  of  the  transformed  row  are  zero,  0->  is  rejected  as  a basis  species. 

Next  /-j  (CO)  is  tested  as  the  basis  species.  The  /^rd  row  (here  the  5th)  of  the  composition 
matrix  is  placed  in'o  the  second  row  of  the  basis  matrix: 

" B (to  be  tested) 
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Gram-Schmidt  construction  transforms  the  first  element  of  the  second  row  as  follows: 


b~i  i 


Zb 


2/i  °\h 


'21 


Zb]h2 


°\\ 


0+1 

0+1 


0 


1 


Tins  element  is  non-negative  and  CO  is  immediately  accepted  ?s  a basis  species  without  further 
calculations.  Also,  because  there  are  now  as  many  basis  species,  as  there  are  elements  (B  is  square), 
the  basis  is  complete  and  because  of  the  above  technique,  “optimized." 

The  results  are  summarized  thus: 


Species  j 

0 1 

CO  2 


m 

1 

3 


The  next  step  is  to  find  the  inverse  of  the  B matrix  which  is 


B'1 


-1  1 

0 0 


The  v matrix  of  reaction  coefficient  is 


now  found  as  follows: 


v = CBA 


1 0 

fi  fi  - 

”i  r 

3 0 

1 1 oj 

-3  3 

0 1 

1 0 

0 2 

2 0 

1 1 

0 1 

1 2 

1 1 

1 0 

-1  1 

— — 

m 

3 


The  coefficient-,  may  be  verified  by  noting  that  the  following  chemical  equations  balance: 


/ 


1 

(•1) 

0 

+ 

(1)  CO— ► 

C 

2 

(-3) 

0 

+ 

(3)  CO  — ► 

C3 

3 

(1) 

0 

+ 

(0)  CO  — ► 

0 

4 

(2) 

0 

+ 

(0)  CO  — > 

°2 

5 

(0) 

0 

+ 

(1)  CO  -* 

CO 

6 

(1) 

0 

+ 

(1)  CO  — *■ 

co2 

7 

(-0 

0 

+ 

(1)  CO  — ► 

C(g.aphite) 

-« 

-nn 


• t*, 


.1,1 
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These  coefficients  may  be  used  to  determine  the  equilibrium  constants  for  each  reaction.  For  instance 
for  the  first  reaction 


^1  = RT  ‘ %0  + Ml  ^CO> 

where  g is  the  given  Gibbs  free  energy  at  the  given  temperature  7’. 

Let  us  say  for  the  sake  of  an  example  that  T = 5500  K and  P = 1 atm  and  that  the 
equilibrium  constants  computed  by  the  above  method  turn  out  to  be 


Reaction 

1 

2 

3 

4 

5 

6 
7 


Bn  jg  (5500) 
-1.4 
-5.95 
0 

0 


-3.91 


The  variable  A,  which  converts  molar  concentrations  to  partial  pressures,  is  computed  as  follows: 
6 

A = P/J^ypi  (summation  to  be  taken  only  over  gases) 
i~\ 

A = 1/(0.4874996  + 0.0045  + 0.5005  + 0.5  + 0.4985  + 0.0005) 

A *>  1/1.9914996  = 0.5022  (rounded) 

Since  all  products  involved  are  gases,  Bn  Q for  the  first  reaction  is  computed  thus: 


Bn  Q - -2  v-j  Vjj  (A nj(j ))  + Bn  AVj 

= f(-l)  1 in  (0.5022  ■ nc0)  + (+1)  gw  (0.5022  • «0)]  + Bn  (0.5022  • nc) 


= + Ew 


U.4975  (0,5005)  (0.5022) 
0.4985 


-1.3829 


The  molar  amount  of  C is  not  less  than  one  hundrcth  of  that  of  CO  or  O,  so  the  formula  for 
the  correction  of  a major  species  is  used: 


At  = (P/i  + C»  C?i)/(Sy«^)  + !/»,•) 


At  = (-1.4  + 13829)/ 

\ ”0  nCO  ”C/ 


At  = (-0.01 7 1)/6.055  = -0.0028 
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The  corrections  in  composition  are  now  made  as  follows: 

Species 

0 = 0.5005  - (-1X-0.0028)  = 0.4977 

CO  n'CQ  = 0.4985  - (+1X-0.0028)  = 0.5013 

C n'Q  = 0.4975  ■ 0.0028  = 0.4947 

(These  new  values  may  be  substituted  into  the  expression  for  bt  Q above  yielding  -1.4004,  which  is 
a significantly  better  estimate  of  bi  K j.) 

Next,  we  turn  to  the  second  reaction 


(-3J  O + (3)  CO  — ► C3 

Because  «C3  = 0.0045  is  less  than  0.01  of  the  smallest  (iiq  - 0.4977)  concentration  of  the  basis 
species,  C3  is  classified  as  minor. 

The  equilibrium  constant  is  given  as  in  K = -5.95  or  K 0.002605  and  Q is  evaluated  by 

= (0.5022  »0)3  (0.5022  ”C3) 

2 (0.5022  «c0)3 

(0.5022)  (0.4977)3  (0.0045)  _ 

= i i L = 0.0002212 

(0.5013)3 

(Note  that  the  new  values  of  «q  and  Hqq  are  used.)  The  new  concentration  of  C3  is  found  by  the 
formula  for  minor  species. 


= 0.0045 


/ 0,002510  \ 

\ 0.002212  / 


0.0053 


The  change  in  the  basis  species  is  then  determined 

AS  = 0.0053  - 0.0045  = 0.0008 

Hq  = 0.4977  - (-3)  0.0008  = 0.5001 

iiqq  = 0.5014  - (+3)  0.0008  = 0.4990 

(Again,  a reevaluation  of  Q shows  a greatly  improved  estimate  of  K.) 

The  third  reaction 

(1)  O + (O)  CO  — ► O 

simply  shows  the  formation  of  a basis  species  from  itself  and  so  it  is  ignored. 


14 


***** „ . 


* 


NWC  TP  6037 


Reactions  four  through  six  fall  into  the  same  categories  as  the  first  three  and  so  will  not  be 
illustrated  here. 

The  seventh  reaction  (-1)0  + (+1)  CO  — ► C(graphite)  shows  the  formation  of  a condensed 
species,  and  so  it  is  considered  to  be  major  even  though  its  concentration  is  well  under  1/100  of 
the  smallest  basis  species.  C/j  Q is  found  as  follows: 


Qs 


(-1)  in  ( AnQ ) -t  (+!)  in  C4mc0) 


- [(-1)  in  (0.5022)  (0.5001 ) + (+1)  Bn  (0.5022)  (0.4990)] 


0.5001 

0.4990 


0.0022 


(No  term  involving  «c(grapnite)  aPPears  *n  lh‘s  expression  because  C(graphite)  is  a nongas.) 

Normally  this  species  would  be  corrected  as  before  for  a major  species.  But  the  following 
conditions  exist: 


«C(graphitc)  < anc*  in  Ky  ■ i/i  Qy  is  negative 

Therefore,  no  correction  is  made  and  the  equilibrium  relation  is  not  binding. 

The  procedure  outlined  is  repeated  for  all  species  until  all  binding  equilibrium  relations  arc 
satisfied  to  a specified  tolerance. 


THE  WORK  OF  SMITH  AND  MISSEN 


Professors  Smith  and  Missen  at  the  University  of  Toronto  reported  further  results  on  the 
reaction-adjustment  method  in  1968, 12  Their  work  points  out  that  a convergence  forcer  is  required 
for  the  method.  It  was  an  oversight  that  this  had  not  been  reported  in  the  work  by  the  author.'2  A 
device  to  force  convergence  is  indeed  required, 

The  NWC  program  computes  limits  on  A£ 


^min  < « < 


max 


(19) 


such  that  negative  concentrations  do  not  occur.  It  forces  convergence  by  narrowing  these  limits  as 
follows: 


1/2 < A?  < 1/2  AJ 


max 


(20) 


Empirically  this  has  been  found  to  work. 

Smith  anJ  Missen  use  a more  elegant  'ochnique,  which  in  effect  tests  the  results  of  each 
reaction  adjustment  to  ensure  that  the  free  energy  minimum  has  not  been  passed  over.  If  this  occurs, 
they  reduce  the  extent  of  the  adjustment. 


12W.  R.  Smith  and  R.  W.  Missen.  "Calculating  Complex  Chemical  Equilibria  by  an  improved  Rcaelion- 
Adjustment  Method,"  Can.  J.  Chcm.  bug.,  Vol.  46  (1968),  pp.  269-72. 

*2D.  R.  C.'ruise.  “Notes  on  the  Rapid  Computation  of  Chemical  Equilibria,”  J.  Phys.  Chcm.,  Vol,  68  (1964), 
pp.  3797-802. 
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Smith  and  Missen  also  report  that  faster  convergence  can  be  achieved  by  obtaining  a better 
initial  estimate  of  the  composition. 

Smith  and  Missen  further  draw  parallels  between  the  reaction-adjustment  method  and  linear 
programming.  This  inspired  th:  author  to  update  the  basis  by  the  tableau  method  of  linear 
programming14  instead  of  the  more  time  consuming  Gram-Schmidt  construction  previously  reported 
(footnote  13).  This  updated  version  works  by  testing  each  species  after  adjustment  to  determine  if  it 
is  now  larger  than  any  of  the  basis  species  with  which  it  reacts.  If  so,  the  two  are  interchanged,  and 
the  equations  are  updated  as  suggested  by  the  tableau  format  (footnote  14). 


NOTES  ON  THE  PROPELLANT  MODEL 


A theorem  by  Duhcm  (see  Chaptei  XIII  of  Chemical  Thermodynamics  °)  states  that  “Whatever 
the  number  of  phases,  of  components,  or  of  chemical  reactions,  the  equilibrium  state  of  a closed 
system  for  which  we  know  the  initial  masses  is  completely  determined  by  two  independent 
variables.”  This  determination  is  made  by  the  NWC  thermochemical  program  in  the  theoretical 
evaluation  of  propellant  performance.  In  the  mathematics  of  the  program  the  independent  variables 
chosen  arc  pressure  and  temperature.  Two  other  variables  of  interest  and  possible  choices  for 
independent  variables  are  enthalpy  and  entropy.  These  too,  however,  are  computed  from  equilibrium 
competitions  and  are  therefore  dependent  on  pressure  and  temperature  in  this  program.  Desired 
value  of  entropy  or  enthalpy  are  achieved  by  repeating  the  above  determination  for  various 
temperatures,  and  new  temperature  guesses  are  obtained  by  interpolation. 

Theoretical  propellant  evaluation  is  based  on  a straightforward  thermodynamic  model  consisting 
of  two  processes:  (I)  constant  pressure,  adiabatic  combustion  and  (2)  isentropic,  adiabatic  expansion. 

The  assumptions  behind  the  combustion  process  include 

1.  Reaction  kinetics  arc  fast  enough  that  chemical  equilibrium  is  attained  beiore  the  products 
leave  the  combustion  chamber  and  enter  the  nozzle.* 

2.  No  heat  exchange  occurs  between  the  propellant  system  and  the  surroundings.** 

3.  Gaseous  species  individually  obey  the  perfect  gas  law  and  collectively  obey  Dalton’s  law  of 
partial  pressures. 

When  such  assumptions  are  made,  the  system  enthalpy  and  the  system  pressure  completely 
determine  the  tinal  state  and  chemical  composition  of  the  system  after  combustion.  The  solution  to 
this  state  and  composition  is  found  by  a computing  technique  called  “enthalpy  balance.”  The  method 
used  by  the  propellant  evaluation  program  is  described  below. 

The  system  enthalpy  itself  is  determined  by  the  propellant  heat  of  formation,  which  (excluding 
heats  of  mixing)  is  a linear  weighting  of  the  heats  of  formation  of  the  individual  propellant 


l4G.  Hadley.  Unear  Programming,  2nd  ed.  Reading,  Mass.,  Addison  Wesley,  June  1963.  Pp.  126  ff. 

* 

Real  propellants  for  which  this  assumption  is  not  valid  are  said  to  “burn  on  the  wrong  side  of  the  nozzle.” 
This  may  be  referred  to  as  a Type  I inefficiency  and  is  one  of  the  principle  reasons  for  disagreement  between  the 
program  and  reality. 

* * 

In  ramjets,  the  stagnation  energy  of  the  incoming  air  becomes  part  of  the  system.  This  may  simply  be 
added  to  the  heat  of  formation  of  air. 
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ingredients.  The  value  of  enthalpy  does  not  change  during  combustion,  so  this  is  also  the  value  of 

the  system  enthalpy  after  combustion.  By  definition,  system  enthalpy  is  the  heat  needed  to  form  the 

system  in  its  current  state  from  the  elements  in  their  most  natural  state  a't  298K  and  one 
atmosphere. 

The  assumptions  behind  the  expansion  process  include:  (la)  Reaction  kinetics  fast  enough  that 
chemical  equilibrium  is  maintained  throughout  expansion,  i.e.,  the  shifting  hypothesis;  (lb)  reaction 
kinetics  so  slow  that  no  appreciable  change  occurs  in  the  chemical  composition  during  expansion,  i.e., 
the  frozen  hypothesis;  (2)  expansion  process  is  reversible*;  (3)  no  heat  exchange  between  system 

and  surroundings;  and  (4)  gaseous  species  individually  obey  the  perfect  gas  law  and  collectively  obey 

Dalton’s  law  and  nongases  occupy  no  volume. 

When  such  assumptions  are  made,  the  system  entropy  and  the  system  pressure  completely 
determine  the  final  state  of  the  system,  regardless  of  the  path.  The  solution  of  this  state  and 
composition  is  found  by  a computing  technique  called  entropy  balance.  The  latter  differs  little  from 
enthalpy  balance.  (System  entropy  is  referenced  to  the  third  law  of  thermodynamics.) 

The  need  for  the  techniques  described  below  arise  because  the  chemical  equilibrium  problem  is 
formulated  to  calculate  composition  and  state  from  given  pressure  and  temperature  values.  The 
calculation  of  performance  and  design  parameters,  however,  demand  that  the  propellant  model  above 
be  utilized. 

The  first  problem  is  to  find  the  value  of  temperature  at  which  a given  enthalpy  and  pressure 
requirement  is  satisfied.  This  provides  the  “adiabatic  flame  temperature"  and,  as  a by-product,  the 
system  entropy.  The  second  problem  is  to  find  the  value  of  temperature  which  satisfies  the  system 
entropy  at  a given  exhaust  pressure.  In  both  cases,  pressure  is  entered  directly  into  the  equilibrium 
code  and  temperature  guesses  must  be  introduced  until  the  enthalpy  or  entropy  conditions  are 
satisfied. 

linthalpy  and  entropy  are  each  monotonic  functions  of  temperature;  their  functional  values 
always  increase  with  increasing  temperature.  In  ideal  cases,  they  arc  smooth,  nearly  linear  curves.  In 
less  frequent,  but  certain  to  occur,  cases  the  curves  arc  actually  discontinuous.  This  occurs  at  the 
fusion  temperatures  of  condensed  species. 

Two  numerical  methods  suggest  themselves:  Newton’s  method  and  the  interval-halving  method. 

Newton’s  method  consists  of  correcting  successive  temperature  guesses  by  the  following  formula' 

Tt  = 7).!  ~ f(T,i)lf'(Thl)  (21) 

where  7/  is  the  new  guess,  7).[  is  the  previous  guess,  J(T)  is  H(T)  - Il()  in  the  case  of  enthalpy 
balance,  and  f(T)  is  S(T)  - S()  in  the  case  of  entropy  balance.  H()  and  S0  are  the  desired  values  of 
enthalpy  and  entropy.  The  derivative  in  the  case  of  enthalpy  is  expressed  as  f'( Tf  = C and  in  the  case 
of  entropy  f(T)  = CplT. 

Newton’s  method  is  very  rapid  when  the  curve  is  fairly  straight  and  v/hen  a good  guess  is  given. 
There  is  no  guarantee  of  its  convergence,  It  definitely  will  not  converge  in  areas  where  the  curve  is 
discontinuous  as  mentioned  above. 

The  interval-halving  method  depends  on  setting  upper  and  lower  temperature  limits.  That  is, 
first,  a temperature  for  which  the  enthalpy  (or  entropy)  is  too  high;  and  second,  a temperature  for 
which  the  enthalpy  (or  entropy)  is  too  low.  The  range  of  much  of  the  JANAF  fiiermochemical  data 
is  298  to  6.000K.  There  can  be  chosen  as  the  limiis,  because  if  they  do  not  bound  the  answer,  the 
computer  effort  is  futile  anyway. 

*This  covers  a multitude  of  sins  such  as  no  shocking  in  the  nozzle  and  equal  veloeities  for  gas  and  nongas 
phases  at  each  point  in  the  tlow.  Real  systems  for  which  this  assumption  is  not  valid  have  what  may  be  referred  to 
as  the  Type  U inefficiency. 
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The  method  proceeds  as  follows:  Take  the  arithmetic  mean  of  the  temperature  limits 
(T)  = 0.5/T{y  + T[j  and  compute  the  value  of  H(T)  or  S(T)  depending  on  the  process.  If  HIT)  is 
greater  than  11  ()  (or  equivalently  for  5),  T becomes^  the  new  upper  limit.  Otherwise,  it  becomes  the 
new  lower  limit.  The  process  is  then  repeated.  T becomes  successively  a better  estimate  of  the 
desired  temperature,  gaining  one  bit  in  precision  for  every  iteration.  Using  the  original  limits  of  298 
and  6.000K,  about  13  iterations  are  required  to  achieve  a precision  of  one  degree. 

The  interval-halving  method' is  the  slowest  practical  approach  to  the  problem.  However,  it  has 
one  overwhelming  advantage  over  other  methods;  if  the  answer  is  contained  in  the  original  limits,  the 
method  will  always  converge. 

The  propellant  program  combines  the  two  techniques.  Temperature  bounds  are  established  and 
modified  according  to  the  results  of  the  temperature  guesses  (a  guess  too  high  gives  a new  upper 
bound  and  vice-versa).  Guesses  are  first  chosen  by  the  formula  for  Newton’s  method.  However,  they 
arc  used  only  if  they  do  not  approach  one  of  the  bounds  by  more  than  hallway;  in  this  case  the 
halfway  point  is  used. 

The  program  thus  uses  Newton’s  method,  with  an  interval-halving  “override.*  The  advantages  of 
both  methods  are  obtained.  When  the  curve  is  fairly  linear,  the  convergence  is  rapid;  when  the  curve 
"misbehaves”  convergence  is  at  least  certain. 


ESTIMATION  OF  NOZZLE  DESIGN  PARAMETERS 


The  NWC  thermochemical  program  evaluates  theoretical  specific  impulse  by  exact 
methods:  enthalpy  balance  for  the  combustion  process  and  entropy  balance  for  the  expansion 
process.  The  state  of  the  fluid  immediately  after  combustion  is  completed  may  be  designated  by  the 
subscript  "l"  and  the  state  of  the  gas  after  isentropic  expansion  to  the  exit  pressure  may  be 
designated  by  the  subscript  “2”. 

The  state  variables  computed  during  the  first  process  are  , V j andS|  given  the  chamber 
pressure,  P| , and  the  propellant  heat  of  formation, //j.' Those  computed  during  the  second  process 
are  ^ FjantJ//,  given  the  exit  pressure,  P and  entropy, Si  = 5’j. 

The  state  of  the  gas  after  the  expansion  may  be  computed  under  cither  a shifting  or  frozen 
hypothec  is;  in  the  latter  case  the  chamber  composition  is  retained  rather  than  computing  new 
equilibrium  conditions  at  the  exit  conditions.  Obviously,  the  values  of  Tj-  V2  and  //■>  differ  under 
the  two  hypotheses,  but  the  design  equations  presented  below  (which  use  these  values  as  input)  are 
identical  for  both  hypotheses. 

The  computation  of  optimum  impulse  assumes  that  the  expansion  ratio  of  the  nozzle  is 
optimum;  i.c.,  the  value  of  pressure  predicted  at  the  exit  by  the  continuity  equation  is  the  same  as 
the  given  ambient  pressure.  In  this  case,  impulse  is  simply  evaluated  as  follows: 


H2) 


(22) 


where  = y'80665  m/s^,  ./  = 4186  (g-joules)/(kg-calories),  m - 100  g and  //  is  system  enthalpy 

in  calories.  (The  program  does  not  actually  require  a lOOg  reference  mass;  it  is  merely  a 
iirne-honored  convention.) 
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The  questions  arise:  How  does  one  correct  the  impulse  for  conditions  other  than  the  chamber 
and  exit  pressures  given?  Also,  how  does  one  correct  for  a nozzle  that  does  not  have  an  optimum 
expansion  ratio?  Furthermore,  how  does  one  determine  design  parameters  such  as  the  thrust 
coefficient  and  the  optimum  expansion  ratio  itself? 

Two  comments  can  be  made  immediately:  (1)  As  far  as  the  first  question  is  concerned,  there  is 
no  better  way  to  determine  the  correction  than  rerunning  the  program  at  the  desired  pressure 
conditions;  (2)  The  gamma  equations  given  in  textbooks  are  inaccurate  and  misleading,  especially 
when  applied  to  shifting  flow  and  when  the  conventional  definition  of  gamma  is  used: 

7 = CplCv  (23) 

However,  equations  of  a gamma  form  may  be  used  effectively,  if  the  values  for  gamma  are 
fitted  to  the  exact  solution  of  the  state  variables  yielded  by  the  program. 

This  approach  assumes  that  the  equations  of  state  for  enthalpy  and  entropy  may  be  written: 


« * »o  * "KT 

S = s(,  = ~\  nR  ^ T ■ nR  in  P 

where  H()  and  S()  arc  arbitrary  constants  and  yc  and  7,,  are  the  parameters  to  be  fitted. 

The  perfect  gas  law,  PV  - nRT , may  be  substituted  into  Liquations  24  and  25  yielding: 


(24) 

(25) 


//  = H0  + m (26) 

S = S'  + — T nR  in  (PV)-nRinP  (27) 

, V* 

where  S()  is  a new  arbitrary  constant,  and  l,  = 24.218  calories/liter-atm.  is  introduced  so  as  to 
consistently  express  enthalpy  in  calories. 

The  constants  yc  and  7^  are  to  be  determined  as  that  H2  and  V-,  are  correctly  predicted  from 
II | and  Kj  by  Equations  26  and  27.  The  solution  may  be  shown  to  be 


7c  _ 11 Y11 2 J_ 

7c-l  = P\V\*2V2  L 


in  P-,  ■ in  P 1 

yv  (29) 

in  - in  V2 

where  IIg  and  Sp  cancel  out.  yc  may  be  called  the  calorimetric  gamma  because  it  predicts  the  heat 
content  during  the  expansion.  yv  may  be  called  the  volumetric  gamma  because  it  predicts  the  changes 
in  volume  during  the  expansion.  In  fact  the  familiar  relation 


V 1 


T"  * V2 


tv 
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may  be  derived  from  Equation  29,  assuming  A.V  = 0.  The  two  gammas  will  not,  in  general,  be  equal, 
due  to  nonuniform  heat  capacity  and  changes  in  composition  in  real  systems. 

Design  calculations  may  be  based  on  the  continuity  equation  for  one-dimensional  flow: 


m - kpvA  (30) 

where  m ~ mass  flux  (g/s),  k = 1,000  (liters/m^),  p = density  (g/!iler),  v = velocity  (m/s)  and 
/ - duct  cross-sectional  area  (m-). 

Equation  30  may  be  rewritten  in  terms  of  state  variables. 


A/m  - 


Vlk 


m 


J2mj  (//,-//) 

using  the  relationships  //j  - H = 1/2  m v*  and  fi  ~ 

Equations  26  and  27  may  be  substituted  into  this  expression  giving 

-1/7, 


(31) 


hh  yc 


Aim  = m = 


m rc 


7/.-1 


ter 


/y/TT7 


(32) 


' (4 


)7v-l)/7„ 


The  pressure  at  the  nozzle  throat  is  found  by  minimizing  this  expiession  with  respect  to  P.  The 
solution  is 


P* 


\7v/(7v-l) 


(33) 


The  throat  area  for  unit  mass  flow  is  found  by  substituting  P*  back  into  Equation  32. 

A*lm  = j\P*)  (34) 

The  optimum  expansion  ratio  for  the  given  exit  pressure  may  now  be  found 

(/J//i*)opl  = J{P2)lfU>¥)  (35) 

If  the  nozzle  expansion  ratio  is  riot  optimum,  then  the  true  exit  pressure  {P2)  is  not  the  same 
as  the  given  ex  t pressure  (P2).  />'  may  be  found  implicitly  from  the  given  value  of  the  expansion 
ratio. 


{A/ A*)  given  = f{P'2)lf(P*) 

The  energy  of  propulsion  is  then  given  by: 


A H 


7 C 
7c' 1 


vx)  1 


^|(7v-D/7, 


(36) 
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(In  the  special  (optimum)  case  where  /\  - Pj,  then  H = H j - //-,.) 

In  both  optimum  and  nonoptimum  cases,  the  specific  impulse  is  given  by 


l hjui  , , 

+ jkw>)  ^ ^ 


sp  XMKS 
The  vacuum  specific  impulse  follows  easily: 


(38) 


(^vacuum  ” gJliS  + P2  (3<;) 

Finally,  the  thrust  coefficient  and  the  characteristic  velocities  are  found  by  conventional  relationships. 


9"%a-s  V/[,sw*),'i]  (40) 

c*  ■ C /S  V/O'  14 '< 

where  gyp^  = 32.16  ft/s3. 

The  program  currently  outputs  (/4/3)0pti  7,,.  O^M).  and  Cy  under  both  frozen  and  shifting 
hypotheses.  Corrections  for  nonoptimum  expansion  may  be  obtained  under  one  of  the  program 
options. 

The  program  was  modified  in  1965  so  that  the  computation  of  7 , and  y,,  is  applied  to  several 
regimes.  These  arc  separated  at  points  where  condensed  phases  appear  and  disappear  from  the  system. 
The  values  of  7 , and  7^  vary  from  regime  to  regime.  Each  regime  is  scrutinized  for  minimum  throat 
area.  If  more  than  one  occurs,  the  smallest  is  the  one  chosen. 


BOOST  VELOCITY 


The  formula  for  boost  velocity  of  an  idealized  missile  (one  free  of  gravity  and  drag)  is 

AU  = (Isp)  g In  (1  + 
where  the  switch  density,  p*,  is  given  by 

_ Mass  of  missile  - Mass  of  propellant  (42) 

p ~ Volume  of  propellant 

and  p is  the  density  of  the  propellant. 

We  use  lb-rnass/in^  to  measure  p and  Ib-mass/ft^  to  measure  p *,  as  input  to  (he  computer,  in 
abject  submission  to  the  illogical  common  usage.  The  units  are  made  the  same  before  computing  the 
ratio. 
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Appendix  A 

INPUT  INSTRUCTIONS  FOR  THE  PROPELLANT 
EVALUATION  PROGRAM  (PEP) 


The  instructions  below  assume  that  one  is  making  a batch  run  and  that  he  has  already 
produced  the  library  tape  or  file  described  under  PEP  Auxiliary  Program  (Appendix  G).  It  does  not 
describe  the  optional  input  of  ingredients  by  serial  number;  that  is  described  under  Automated  Input 
of  Ingredient  Data  (Appendix  F).  The  latter  option  works  for  both  batch  and  teletype  runs. 

The  input  deck  for  the  equilibrium  program  consists  simply  of  three  groups  of  cards:  (1)  the 
control  card,  (2)  the  ingredient  composition  card(s),  and  (3)  the  pressure  and  weight  ratio  card(s). 

The  first  19  columns  of  the  control  card  contain  option  switches.  Their  functions  are 
summarized  in  Table  A-l  at  the  end  of  this  appendix. 


In  columns  21  through  26  of  the  control  card  appear  the  first  six  letters  of  the  name  of  the 
person  running  the  problem.  Ending  in  column  30  is  the  number  (not  to  exceed  10)  of  propellant 
ingredients;  this  number  must  agree  with  the  number  of  ingredient  composition  cards  that  are  to 
follow  the  control  card  (punch  no  decimal  point).  Ending  in  column  40  is  the  number  of  runs  to  be 
made  on  that  system  of  ingiedients.  This  number  must  agree  with  the  number  of  pressure  and  weight 
ratio  cards  that  are  to  follow  the  ingredient  cards  (again,  punch  no  decimal  point). 

The  format  of  the  ingredient  composition  card  is  as  follows: 


Name  of  ingredient  (alphanumeric) 

Number  of  atoms  of  first  element  in  compound  (punch  no  decimal) 

Symbol  of  first  element  (left  adjust) 

Number  of  atoms  of  second  element  in  compound 

Symbol  of  second  element  and  so  on  as  needed  up  to  six  elements  and 
column  60. 

Heat  of  formation  of  compound  in  calories  per  gram  (right  adjust  with  no 
decimal  point) 

Density  of  compound  in  pounds  per  cubic  inch  (punch  decimal  point) 

This  last  item  may  be  omitted  if  boost  velocities  and  density-impulse  are  not  required. 

Examples  of  ingredient  composition  cards  follow: 

AMMONIUM  DICHROMATF,  8H  2N  70  2CR  -1688  .0776 


Column 

1-30 

Column 

31-33 

Column 

34-33 

Column 

36-38 

Column 

39-40 

Column 

63-67 

Column 

69-73 

It  is  possible  to  introduce  arbitrary  multipliers  into  the  composition;  thus  the  following  is  equivalent 
to  the  example  above: 

AMMONIUM  DICHROMATE  16H  4N  140  4CR  -1688  .0776 


Mixtures  may  also  be  entered  as  single  ingredients  as  follows: 

AIR  (DRY  AT  SEA  LEVEL)  835N  2240  5 AR  OOC’O 
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The  pressure  and  weight  ratio  cards  each  consist  of  12  six-column  fields.  The  first  field  contains 
the  chamber  pressure,  and  the  second  contains  the  exhaust  pressure.  Following  these  are  consecutive 
weight  ratios  for  the  propellant  ingredients  in  the  same  order  in  which  they  appear  the  ingredient 
composition  cards.  There  are,  of  course,  as  many  cards  as  there  are  ingredients.  The  weights  normally 
are  chosen  to  add  up  to  100  g,  although  this  is  not  required.  Decimal  points  must  be  punched  in  all 
fields  used  on  the  pressure  and  weight  ratio  cards. 

A complete  sample  input  deck  for  a well-known  hybrid  system  is  listed  aftei  Table  A-l 
Table  A-l  contains  necessary  information  that  should  be  studied  before  using  the  program. 


TABLE  A-l.  Program  Options. 


Option  no. 

Type 

Function  performed 

1 

1 

Deletes  exit  calculations 

2 

1 

Includes  ionic  species  in  the  calculations 

3 

l 

Deletes  boost  velocities  and  three  pages  of  nozzle  design  data 

4 

1 

Inputs  pressures  in  psi  instead  of  atmospheres 

5 

1 

[•'creases  precision  of  species  concentrations  one  order  of  magnitude 

5 

2 or 
higher 

Increases  precision  even  further 

6 

1 

Inputs  an  extra  identification  card 

7 

l 

Inputs  a pressure-temperature  point  instead  of  chamber  and  exhaust  pressures.  This  allows 
a P-T-H-S  chart  to  be  developed 

8 

1 

Outputs  a list  of  all  combustion  species  considered 

9 

l 

Allows  serial  number  input  for  ingredients 

10 

1 

Allows  p-  ''dification  of  H and  p data 

Option  11-15  are  used  only  for  debugging 

11 

1 

Prints  out  thermo  data  computed  at  every  temperature  guess 

12 

1 

Prints  out  the  first  guess  of  the  composition 

13 

1 

Prints  out  compositions  every  fourth  iteration 

14 

1 

Prints  out  the  log  of  the  equilibrium  constants  at  eucry  temperature  guess 

15 

1 

Outputs  a code  that  indicates  the  classification  the  program  has  applied  to  various  species 
at  each  iteration 

16-19 

Leave 

Blank 

l or  internal  use 

-RUN  419051*13200 18 AOB5G *45354 19 *05  *75/0  CRUISE 


-ADD  PEP*RUN. 

0011000000 

CRUISE 

2 9 

♦0000  .0*74 

SULPHUR 

IS 

MOLASSES 

1000.  14.7 

-FIN 

10*  90. 

22H  12C  110 

-1550  .0574 
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Appendix  B 

PEP  TELETYPE  USAGE 
(Pertains  mainly  to  NWC  users) 


First  obtain  a user  number  for  yourself,  an  identification  number  for  your  teletype  (TTY),  and 
a job  order  number  for  the  use  of  the  people  in  Code  3132.  Call  Ext.  3019  for  a UNIVAC  11 10  user 
number,  and  call  Daryl  Vaughn  at  ext.  3561  for  the  teletype  identification  number,  if  it  is  not 
already  pasted  to  your  teletype. 

Approach  the  teletype  and  dial  7 (120  cps),  6 (.>0  cps),  or  5 (10  cps).  It  should  ring  once  and 
give  a 1,000-cps  beep.  Type  in  the  teletype  identification  upon  coupling.  A secret  password  is  now 
required  at  this  point  (call  ext.  3019  for  information). 

The  RUN  card  is  typed  next.  It  starts  with  f“'RUN  followed  by  one  or  more  spaces.  Then,  on 
the  same  line,  type  uuuTTY,  mmmmmmmmmm9G,  ccccuuu,  t,  where  uuu  is  your  user  number, 
mmmmmmmm  is  your  job  order  number,  cccc  is  your  NWC  organizational  code,  and  t is  a time 
estimate  in  minutes.  The  TTY  and  9G  arc  typed  as  shown. 

After  the  computer  prints  out  the  date,  type  in  f«ADD  PEP*RUN.  exactly  as  shown.  (Do  not 
forget  the  period.) 

The  computer  will  now  mumble  for  10  or  more  lines,  and  then  you  will  be  greeted  by  the  PEP 

program.  The  program  will  prompt  you  for  an  input  and  provide  a typing  guide.  The  first  inputted 

line  contains  the  options,  the  name  of  the  user,  the  number  of  ingredients,  and  the  number  of  runs 
to  be  performed  on  that  set  of  ingredients.  Type  the  options  under  the  option  number. 

Ingredient  information  may  now  be  entered  by  serial  number.  Obtain  a list  from  Code  3245, 
and  send  any  updates  for  the  list  you  wish  to  add.  Enter  the  serial  numbers  in  the  order  you  wish 

and  type  them  consecutively  so  they  end  under  the  “V’s”  of  the  typing  guide.  (They  a thus  right 

adjusted  in  five-column  fields.) 

The  program  will  next  prompt  you  for  the  chamber  pressure,  the  exit  pressure,  and  the  weight 
ratios.  The  weight  ratios  are  in  the  same  order  as  the  ingredients.  Always  type  the  decimal  point  and 
remain  inside  the  fields.  The  end  of  each  field  is  indicated  by  a “V”  in  the  typing  guide.  (Actually 
the  guide  stops  short  of  the  12  fields  that  arc  possible.)  The  number  of  ingredients  is  limited  to  10. 

If  you  wish  to  start  over,  hit  a carriage  return  instead  of  the  input  discussed  above. 

Terminate  the  run  by  typing  ««'X  TIO  and  then  C«’FIN  instead  of  the  prompted  input.  After 
the  computer  prints  out  execution  time,  type  ("("TERM  to  sign  off. 

A “control  Z”  deletes  the  previous  character  (but  defeats  the  typing  guide). 

A “control  X”  typed  before  a carriage  return  deletes  the  current  line  and  allows  you  to  start 

over. 

A run  may  be  aborted  by  hitting  the  “break”  key  (on  some  teletypes  this  must  be  followed  by 
hitting  a “break  release”  button,  which  turns  on  after  you  have  hit  the  "break”  key).  The  computer 
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types  INTERRUPT  LAST  LINE  and  returns.  Type  (K «’X  TIO  and  hit  carnage  return.  The  run 
eventually  stops. 

If  a run  is  deliberately  or  accidentally  aborted,  type  C«'XQT  CRUISE*QAME  to  restart  the 
program,  instead  of  ("ADD  PEP* RUN;  it  saves  time  and  money. 

To  save  more  money,  try  the  following: 

1.  Delete  the  long  output  (option  3),  if  you  do  not  need  it. 

Punch  the  information  on  cards  and  submit  a batch  run. 

3.  If  you  do  not  mind  the  longer  turnaround  time,  submit  a batch  run  with  an  “N"  (night 
run)  option. 
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Appendix  C 

COMMENTS  ON  THE  PEP  OUTPUT 


The  program  output  deliberately  has  been  made  concise  so  that  a great  deal  of  information 
may  appear  on  a single  page  of  a report.  However,  the  conciseness  requires  that  some  explanations  be 
given  to  the  uninitiated. 

The  first  line  contains  the  user’s  name,  the  date,  and  the  precise  time  of  day.  This  information 
is  repeated  on  successive  pages  so  that,  if  the  pages  are  separated,  they  are  uniquely  identified. 

The  input  ingredients  arc  printed  next,  so  that  the  input  may  be  checked. 

The  ingredient  weights  are  printed  next,  and  the  total  system  weight  follows  the  individual 
weights.  The  total  system  weight  is  generally  chosen  by  the  user  to  be  100  g,  but  whatever  the  user 
chooses,  the  value  is  important  to  other  outputs  described  below. 

The  gram-atom  amounts  for  each  chemical  element  are  next.  These  are  based  on  the  given 
system  weight. 

The  chamber  conditions  are  then  printed  out  with  headings.  The  enthalpy  has  units  of 
kilocalories  per  system  weight,  and  the  entropy  has  units  of  calories/K  per  system  weight.  CP/CV  is 
the  ratio  of  specific  heats,  and  GAS  identifies  the  number  of  moles  of  gas  produced  per  system 
weight.  Effective  molecular  weight  is  obtained  by  dividing  GAS  into  system  weight.  Note  that 
although  nongases  are  not  included  in  this  computation  this  is  the  proper  molecular  weight  to  use  in 
gas  dynamic  equations.  The  quantity  RT/V  is  equal  to  the  variable  designated  A in  the  text  and  may 
be  expressed  as 


R (0.08205  g-atm/moie/K)  T (K) 

V(system  volume  in  liters) 

The  chamber  composition  follows  in  units  of  moles  per  system  weight.  If  one  prefers  to  obtain 
partial  pressures  in  atmospheres,  multiply  each  composition  by  RT/V  printed  above. 

The  exhaust  plane  results  follow,  in  the  same  format  and  units  as  the  chamber  results  just 
described. 

Three  lines  of  performance  results  appear  next.  The  first  contains  headings;  the  second  contains 
the  results  for  a frozen  flow  (no  chemical  reactions)  through  the  nozzle;  and  the  third  contains 
results  for  a shifting  flow  (reactions  in  equilibrium)  through  the  nozzle.  Impulse  is  in  the  units  of 
seconds  and  is  the  same  in  engineering  and  metric  units.  Unfortunately,  the  SI  people  introduced 
confusion  where  none  previously  existed  by  changing  the  definition  of  impulse  to  what  was 
previously  called  the  theoretical  exhaust  velocity.  Therefore,  to  obtain  the  official  SI  impulse, 
multiply  the  value  outputted  by  9.806  m/sec. 

The  next  number  (IS  EX)  is  the  isentropic  exponent,  which  is  the  number,  yp  such  that 
PVTy  = constant 
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for  isentropic  flow  near  the  nozzle  throat.  The  values  of  IS  EX  and  CP/CV  do  not  agree,  because  the 
gas  is  not  perfect. 

The  variables  T*  and  P*  are  throat  temperature  (in  K)  and  pressure  (in  atmospheres), 
respectively.  The  variable  CF  is  the  nozzle  thrust  coefficient.  Those  who  regard  characteristic  velocity, 
C*,  as  a meaningful  number  may  obtain  it  by  the  relation 

C*  = 32.17  1SP/CF 

The  variable,  ISP*,  is  the  vacuum  impulse  to  be  obtained  from  a sonic  nozzle.  That  term  is  used  in 
airbrf  athing  propulsion  work.  The  optimum  expansion  ratio  (OPT  EX)  is  the  ratio  of  the  nozzle  exit 
area  to  nozzle  throat  area  at  which  exit  pressure  equals  ambient  pressure.  The  density  impulse  is 
labeled  D-ISP,  and  the  exit  plane  temperature  is  in  K. 

Appearing  just  before  the  exit  temperature  (EX  T)  is  A*M.,  which  stands  for  A*/M.  This  is  the 
ratio  of  nozzle  throat  area  to  mass  flow  rate  expressed  as  in^-scc/lb. 

Optional  output  includes  boost  velocities.  These  are  shown  in  number  pairs:  the  first  is  the 
switch  density  (see  text),  and  the  second  is  the  velocity  in  fect/second.  Inputted  densities  follow  in 
pounds/itA  The  next  output  shows  the  performance  of  the  propellant  through  nozzles  with 
expansion  ratios  of  1 to  100.  These  include  three  kinds  of  impulse:  optimum  (ambient  pressure  = exit 
pressure),  vacuum  (zero  exit  pressure),  and  sea  level  (exit  pressure  = 1 atmosphere).  Units  are  given 
in  SI  units  as  well  as  the  older  English  units.  Note  that  all  impulses  need  to  be  corrected  for  nozzle 
half  angle. 

A final  output  shows  the  computer  CPU  time  consumed  by  the  calculations. 


CRUISE  G9/1S/78 

09:4  1 :4J 

OH 

COMPOSITION 

SULFUR 

IS 

MOLASSES 

•1  SSL 

22H  izc  lfo 

INGREO.  WTS.6T0T  AL/  GRAM  ATOMS/  CHAveF.R/  EXHAUST  RESULTS/  PERFORMANCE 


lo.oonoo  9'j.ouoori  Ilo.ooOoo 


5.7P4264  H 

i. 155053  C 2.o92U2 

0 .3118 

S 7 S 

T ( K 1 T<  F)  P(  ATM  ) 
85U.  1071.  63.02 

PtPSIl  EMfHALPV 
lOOR.nu  -139.50 

ENTROPY 
169,12  1 

CP/CV  GAS  RT/V 

. 1664  3.1  69  Z 1 r 46  5 

1.75964  Ci 
.3-04  77  HZ  S 
1.25-Q6  C52 

1. 

• 

26292  H 20 

201  07  H 2 

.79298  C 0 2 
.”4116  CO 

.55919  CH4 
.0L203  CSO 

T < K ) T(  F 1 P< 
501.  442. 

ATM  ) 
l.UC 

P(P5I)  ENTHALPY 
14.70  -156.92 

ENTROPY 
169,12  1 

CP/CV  GAS  PT 

.2045  3.059 

/V 
u 7 

2.15012  Ci 
.31181  H2S 

1. 

• 

72024  H 20 

L2221  H2 

,56569  C 0 2 
•050D5  CO 

.41894  CH«* 
.00004  CSO 

IMPULSE  IS  EX 

T * 

P*  CF 

ISP*  OPT  EX  C-ISP  * *H. 

LX  T 

120.2  1.1936 

123.1  1.1453 

775  . 
797  . 

3 8 .48  1 , 62  r 

39  .14  1 .62* 

8 .98 
93. 4 9 ,67 

.0  . 0^401 

.0  .075bo 

429. 

501. 

INGRE0.  DENSITIES  ARE 

.0000  . CK:Q0 


• CPU  1.79SECS. » 
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Appendix  D 

BRIEF  DESCRIPTIONS  OF  PEP  SUBROUTINES 


In  the  summary  below  the  first  item  to  appear  is  the  subroutine  name.  Then  appears  a letter 
code  in  parentheses  to  explain  the  usage  of  the  subroutine.  The  meanings  of  the  letters  are  as 
follows' 

(M)  Main  program 
(I)  Input  routine 

(O)  Output  routine 

(E)  Routine  directly  involved  in  equilibrium  calculations 

(P)  Routines  that  evaluate  performance 
(U)  Utility  routine 

Following  the  letter  code  appears  the  name  of  the  calling  subroutine(s)  in  square  brackets.  Finally  a 
brief  description  appears. 

A summary  of  the  PEP  subroutines  follows: 

ADJUST  (E)  [DEFIOJ]  Correct  errors  in  gram-atom  balance  that  arise  due  to  truncation  errors. 
BOOST  (P,0)  [DESIGN]  Computes  and  outputs  boost  velocities. 

*DATE  (U)  Calendar  date  routine. 

DEFIOJ  (£)  [EQUILJ  Computes  optimal  basis. 

DESIGN  (P,0)  [PEP]  Computes  and  outputs  performance  parameters. 

DESNOZ  (O)  [PEP]  Outputs  nozzle  performance. 

EQUIL  (E)  [HBAL.S3AL]  Computes  composition  for  a pressure-ternperature  point. 

FIXBAS  (E)  [EQUIL]  Fixes  basis  to  compensate  for  phase  changes  that  occur  due  to  temperature 

change. 

GIBBS  (D)  [EQUIL]  Computes  enthalpy,  entropy,  and  Gibbs  free  energies  for  all  species. 

GUESS  (E)  [PEP]  Computes  initial  guess  of  composition. 

HBAL  (E)  [PEP]  Computes  constant  pressure  combustion  (P,H  point). 

IPHASE  (P)  [DESIGN]  Characterizes  and  locates  phase  changes. 

LINDEP  (E)  [DEFIOJ]  Establishes  linear  independence  of  basis. 

*LKCLKS  (U)  [PUTIN]  Looks  at  system  clock. 

ONED  (P)  [DESIGN]  One-dimensional  flow  calculations. 

OUT  (O)  [PEP]  Outputs  temperatures  and  composition. 

PEP  (M)  Main  program  puts  everything  together. 

PUTIN  (I)  [PEP]  Main  input  routine. 

RANK  (U)  Sorts  an  array  into  decreasing  order  of  size. 

REACT  (E)  [EQUIL]  Computes  stoichiometric  coefficients  and  equilibrium  constants. 

SBAL  (P)  [PEP]  Computes  isentropic  exhaust  state  (i.e.v  a P,S  point). 

♦Nonessential  system  utility  subroutines. 
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SEARCH  (I)  [PUTINJ  Searches  combustion  data  for  pertinent  species. 

*SETCLK.  (U)  Sets  the  system  clock  to  zero. 

SETUP  (E)  Preliminary  analysis  of  equilibrium  situation,  computes  maximum  and  minimum  shifts 
in  concentration  so  that  negative  concentrations  do  not  occur. 

SUTE.SLITET  (U)  Through  this  rout:  .e  the  program  seeks  to  turn  off  simulated  lights  to  obtain: 
L1TE(1)  off-optimum  basis 
LITE(2)  off-linear  independence  in  basis 
LITE(3)  off-temperature  convergence 
LITE(4)  off-composition  convergence 

STOICH  (E)  (PUTIN]  Preliminary  analysis  of  elementary  composition. 

TABLO  (E)  [TWITCH]  Updates  optimal  basis  by  the  tableau  method  of  linear  programming. 
TAPEB  (I)  [SEARCH]  Input  buffer  for  combustion  data. 

THERMO  (E)  [EQU1L]  Computes  system  enthalpy  and  entropy. 

•TOFDAY  (U)  Time  of  day. 

TSALT  (P)  [TSBAL]  Computes  a T,S  point  by  slow,  but  reliable  method  when  TSBAL  fails. 
TSBAL  (P)  Fast  equilibrium  computation  for  specified  temperature  and  entropy  (T,S);  occasionally 
fails  to  converge. 

TW1D  (E)  [TWITCH]  Computes  equilibrium  relation  for  TWITCH  to  i.  odify. 

TWITCH  (E)  [EQUIL, TSBAL]  Main  equilibrium  subroutine.  This  is  flow  charted  below. 

*Wonessential  system  utility  subroutines. 
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Appendix  E 

IDENTIFICATION  OF  VARIABLES  IN  COMMON  BLOCKS 


The  following  information  is  provided  for  those  who  wish  to  dig  into  the  equilibrium  program. 


BLANK  COMMON 

A 

Basis  matrix 

KR 

Option  block 

AMAT 

Ingredient  composition  matrix 

JAT 

Atomic  numbers 

ASPEC 

Element  names  (field  data) 

IN 

Number  of  ingredients 

IS 

Number  of  elements 

FIE  ) 

IE  J 

Ingredient  composition 

ALP 

Gram-atom  amounts  ( a ) 

W27 

System  weight 

N 

Number  of  combustion  species 

BLOK 

Ingredient  names  (field  data) 

DH 

Ingredient  heats  of  formation 

RHO 

Ingredient  densities 

ISERI 

Output  identification  (field  data) 

WATE 

Ingredient  weights 

Wl(4) 

System  heat  of  formation 

W1(S) 

Chamber  pressure 

Wl(6) 

Exhaust  pressure 

W43 

Density 

JG 

Number  of  gaseous  combustion  species 

NP 

N + 1 

VNT 

Combustion  species  concentrations 

W47 

Temporary 

NAME 

Temporary 

SER 

Temporary 

FLOOR 

Lower  limit  of  concentrations 
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C0MM0N/1BRIUM 

TL  Lower  temperature  limits  for  species  data 

TU  Upper  temperature  limits 

W3  Molecular  weights  of  species 

VNU  Reaction  coefficient  matrix  (vjj) 

QA  Temporary  variable 

TAU  Temporary  variable 

H Species  enthalpy 

SD  Species  entropy 

Y Species  heat  capacity 

JC  Iteration  index 

IR  Storage  area  for  sorting 

DMU  Species  Gibbs  free  energies  (Uj) 

VLNK  Natural  log  of  equilibrium  constants  - 1 

IOJ  Indices  for  basis  species  (i(j)) 

RA  Constant  terms  for  species  Cp  (Lj ) 

RB  T term  for  species  Cp  (Lj) 

RC  T3  term  for  species  Cp  (L3) 

RD  T3  term  for  species  c (L4) 

RE  rz  term  for  species  cp  (Ls) 

RF  Reference  enthalpies  (Lb) 

CH  Reference  entropies  (Ly) 

JM  Temporary  variable 

W48  Temporary  variable 

CP  System  heat  capacity 

FN  Number  of  moles  of  gas  in  system 

C Species  composition  matrix 

SPECIE  Names  of  species  (field  data) 

LL  Vectro  to  keen  track  of  certain  computational  data  concerning  combustion  species 

COMMON/SCRATC/ 

UN  Temporary  storage  for  compositions.  This  is  used  to  analyze  splits  between  the  liquid  and 
solid  phase  of  a species. 

PLOT  Temporary  storage  for  nozzle  design  results. 

COMMON/MOON/ 

TSTEST  Convergence  test  for  T-S  point. 
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Appendix  F 

AUTOMATED  INPUT  OF  INGREDIENT  DATA 


The  program  (PEPL1B)  appears  below  with  data.  It  allows  a user  to  enter  ingredient  data,  if  he 
is  lucky  enough  to  find  it  on  the  list,  by  the  serial  number  that  appears  to  the  right.  If  option  9 is 
employed,  the  ingredient  serial  numbers  are  punched  on  a single  card  following  the  option  card  in 
format  (1015).  PEPLIB  creates  a tape  or  file  which  is  given  label  “11"  by  both  PEP  and  PEPLIB. 

The  program  date  is  the  compilation  of  propellant  ingredient  data  as  of  10  May  1978.  It 
contains  many  corrections  and  additions  to  previous  lists. 

It  is  not  convenient  to  the  users  to  reassign  serial  numbers  once  assigi  ed  to  an  ingredient. 
Therefore,  note  that  the  oldest  data  is  in  alphabetical  order.  Following  that  is  a supplementary  list 
that  is  also  in  alphabetical  order.  Following  that  is  another  list  of  several  dozen  ingredients,  which 
are  in  the  order  received.  Finally,  there  are  two  more  supplementary  lists,  one  of  which  is  data 
received  from  Ed  Barooty  at  NSWC,  Indian  Head,  MD.  This  is  heat  of  combustion  data  and  is  in 
alphabetical  order. 

Chemical  ingredient  names  are  mostly  generic  to  avoid  confusion.  Since  these  are  sometimes 
long,  they  are  sometimes  continued  on  the  following  line.  The  proper  serial  number  in  that  case  is 
on  the  line  which  contains  the  composition. 
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Program  With  Truncated  Input 


-AS6.AX  CRUISE*PEPLIB//21734 
-USE  u.cruise*peplib 

-FOR. IS  LIBPRO.LIBPRO/A 

DIMENSION  A ( 20 ) * B ( 2 ) 

WRITE  (6*4) 

4 FORMAT  <-l-> 

REWIND  U 

DO  9 J«l*99?5 

READ  (s.l.ERR-lO.END-ll)  t Adi.  1-1.13  I 
C i FORMAT  < 10a6.2X»A5.1X.A5»1X.A6I 

1 FORMAT  (10A6.  IX.  F6.0.  IX.  A5.  IX.  AS  I 
ENCODE ( 19.B I At  11 > 

19  FORMAT  IF6.0) 

Atlll-B(l) 

WRITE  (11*51 CAt I > • 1-1.12) 

5 FORMAT  (1CIA6.AS.1X.A5.1H)) 

C 2 FORMAT  ( 12A6. Al . 1 7 ) 

JJ-J-1 

9  WRITE  16.3) ( A ( I ) .1-1.12) »JJ 

3 FORMAT  ( 10A6.2X.A5.1X.A5. 1 7) 

GO  TO  11 

10  READ  130.20) (A<L) .1-1.14) 

WRITE  ( 6.20) (AIL) .L-1.14) 

20  FORMAT ( 13A6  <A2 ) 

11  END  FILF  11 
CALL  EXIT 
END 

-XQT 


1EA-5-B5  (VICTOR) 

378H 

243C 

1 02N 

860 

205F 

-0538 

1.463 

615 

2 NITRO  DIPHENYL  AMINE 

10H 

12C 

20 

2N 

+0135 

.0535 

59 

100DER321/43DEH14 

810H 

596C 

22N  1080 

-0661 

2 NITRO  DIPHENYL  AMINE 

10H 

12C 

20 

2N 

+0135 

.0535 

359 

2-TDMECL04  < INFO  635P) 

3C 

7H 

1CL 

6F 

4N 

50 

-0345 

.0650 

*4001 

2-TOMEHCL  (INFO  6310 

3C 

7H 

1CL 

6F 

4N 

10 

-0448 

.0650 

*4002 

8C8H16F10N60  ( FAPEMON ) 

8C 

8H 

18F 

ION 

60 

-0273 

,0000 

*5003 

8C8H18F 10N60  (FAPEMON) 

8C 

8H 

18F 

ION 

60 

-0240 

.0000 

G5004 

9C14H12F6N30  (TVOPA) 

9C 

14H 

12F 

6N 

30 

-0305 

.0000 

G5005 

9C14H12F6N30ITV0PA) 

9C 

14H 

12F 

6N 

30 

-0430 

.0554 

*5006 

ACETAMIDE 

2C 

5H 

10 

IN 

-1310 

.0360 

ACETYL  triethyl  citrate 

22H 

14C 

60 

-1257 

,0408 

008 

acetylene 

2C 

2H 

+ 1846 

.0263 

*5009 

acetylene 

2C 

2H 

+ 1892 

.0220 

*5010 

ACETYLENE  (GASEOUS)* 

2H 

2C 

+2081 

G Oil 

acrylic  ACID  -hc- 

4H 

3C 

20 

-1282 

. 0384 

* 012 

acrylic  nitrile 

3C 

3H 

IN 

0662 

.0000 

*1013 

ADIPIC  ACID  6C 

10H  40 

-1480 

AIR  (DRY  AT  SEA  LEVEL) 

835N 

2240 

5AR 

+0000 

AIR  (500K  OR  900R ) 

835N 

2240 

5AR 

+ OO49 

AIR  (1000R  OR  555 « 5610 

035N 

2240 

5AR 

+ 0063 

AIR  ( 750K.  OR  1350R) 

835N 

2240 

5AR 

+0113 

AIR  (1500R  OR  833.33)0 

835N 

2240 

5AR 

+0135 

AIR  ( lOuOX,  OR  lBOORjIO 

035N 

2240 

5AR 

+0180 

AIR  (2000R  OR  1111,10 

835N 

2240 

5AR 

+0201 

AIR  (1250K.  OR  2250R)K) 

835N 

2240 

5AR 

♦0249 

i 

I 
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Program  Output 


0 0 


1 fcA-5-85 

(VIC  TOR) 

37FH 

2A3C  1 OiN 

860 

2osf 

-538 

1 .4  6 3 

1 

2 NITRO  DIPHE  NYL  HMf.E 

1 Oh 

1 2 C 

20 

2N 

135 

.0535 

2 

1GCDER32  1/43D  EH14 

b1"H 

5 v6  C 

2 2 N 1080 

-6o  1 

3 

2 NITRO  ulPHt  STL  AMINE 

1 On 

1 2 C 

20 

2N 

135 

.05  35 

*» 

2'TDMECL  04  U *F0  63 5P) 

3 C 

7H 

1 CL 

6 F 

AN 

50 

-345 

.0650 

5 

?'TDF tKC L 

(in  FO  6310 

IC 

7 H 

1 CL 

6 F 

AN 

10 

-448 

. G6  5 0 

6 

RCbHIaFl  C 

N60  (FAPEMON) 

'IC 

£H 

1 6 F 

ION 

60 

-273 

.00  00 

7 

6 C 8H 1 8 F 1 CN60  (FAPEMON) 

3 C 

8H 

1 8 F 

ION 

60 

-240 

.oocc 

r 

°C14h12F  8N30  ( TV  OPA ) 

9 C 

1 A H 

12F 

6 N 

30 

-385 

.0000 

9 

5C14HUF  c N 3 0 ( TVOPA) 

«C 

IAh 

1 2 F 

6N 

30 

-430 

.0554 

10 

ACETAMIb t 

2 C 

5H 

10 

IN 

-1310 

) 03  60 

1 1 

ACETYL  T ulETH  YL  CITnATE 

2 2 H 

1 AC 

6u 

-1257 

.0408 

12 

ACET 7LEN E 

2 C 

2h 

1646 

• 02o3 

13 

ACETYLEN  t 

2 C 

2K 

1392 

.0220 

1 4 

ACtTYLEN  E 

(0 A SEOUS)  • 

2 H 

2 C 

2081 

15 

ACHYLIC  ACID  -HC- 

4 H 

3 C 

20 

-1282 

.0364 

1 6 

ACRYLIC  MTRIll 

3 C 

3H 

IN 

682 

.COUC 

17 

ADIPIC  ACID  6C  1uH 

AO 

- I4o0 

1 8 

AIK  (DkY 

AT  StA  LEVEL) 

835N 

2 2 AO 

5 AR 

C 

19 

AIR  (50CK  OR  9CCR) 

635n 

2 2 AO 

5 AP 

49 

20 

AIR  (1UCCR  0 h 155.56K) 

e35N 

2 2 AO 

5 AR 

63 

21 

AIR  v’HA  OR  1350R) 

33  5n 

2 2 AO 

5AP 

113 

22 

AIR  (1  a t 

OR  0 R 633.33K) 

635N 

22AO 

SAP 

135 

23 

AIR  (1UC 

.K  OR  1800r)K) 

835n 

2 2 AO 

5 AR 

160 

24 

AIR  (20  C 

,R  OR  1'rll.lK) 

83  5 N 

22A0 

5 AR 

201 

25 

AIR  Clef 

OK  OR  2250R)K) 

6 3 S N 

2 2 AO 

SAP 

249 

26 

ALUMINUM 

(PUR  E CRYSTALIN  E) 

1 AL 

0 

.0976 

27 

ALUMINUM 

(PUR  t:  CRYST ALINE) 

1 AL 

rt 

.0976 

2 o 

ALUMINUM 

DlbO  RIDE 

2b 

1 A u 

* 

-1632 

.1132 

29 

ALUMINUM 

UERY  LLIUM  (ALLOY) 

luE 

1 At. 

n 

.0874 

30 

ALUMINUM 

BERYLLIUM  (ALLOY) 

3b  E 

1 A u 

6 

• 07  v5 

31 

ALUMINUM 

BORI Dc 

12b 

1AL 

-31  A 

.0921 

32 

ALUMINUM 

BORON  (ALLOY) 

12u 

1 Al 

-600 

.0978 

33 

ALUMINUM 

bORO  NYORire 

1 AL 

3b 

1 2H 

-301 

.0199 

34 

ALUMINUM 

BORO  HYDRIDE 

1 AL 

30 

1 2H 

-208 

. C 

35 

ALUMINUM 

CARB  IDE 

AAL 

3C 

-0 

-0 

_n 

-215 

.0652 

36 

ALUMINUM 

FLO  UkiDE 

3 F 

IAl 

-84  A 

37 

ALUMINUM 

HYDR  IDE 

1 AL 

3H 

-9  2 

.0516 

36 

ALUMINUM 

N I T R I b E 

In 

IAL 

- 1407 

.1170 

iv 

ALUMINUM 

(NON  -REACTIVE) 

1 U A 

n 

.09  76 

AO 

ALUMINUM 

PERC  HLURATE 

1 2u 

IAl 

3CL 

-ol  A 

.0939 

Al 

ALUMINUM fcClROH  YDRlDEuIMETHYLAM 

2 C 

19H 

IAL 

3B 

IN 

-46  3 

.0265 

42 

AMINOXYLENE  (XYuIDENE) 

1 1 H 

SC 

IN 

-6  5 

43 

AMINO  TETROIOLE 

3h 

1C 

5 N 

565 

.0595 

44 

AFINE  TE  R M I N A TED  POLYbUTAOIEN 

C 6h 

AC 

56 

.0360 

45 

AMINO  TElhOXOLE  PtRCHLOR  AT  L 

AH 

1C 

5N 

AC 

1 C L 

204 

. C 6 68 

A 6 

AMMONIUM 

ACET  ATE 

2 C 

7H 

20 

IN 

-1820 

.0422 

47 

AMMONIUM 

faICA  RbuNATt 

U 

5H 

30 

IN 

- c58  0 

.0570 

46 

AMMONIUM 

CARB  CNATE 

U 

3 H 

2 N 

30 

-23AC 

4 V 

AMMONIUM 

CHLO RIDE 

In 

ah 

1 CL 

-1410 

.0551 

5 0 

AMMONIUM 

CYAN  ATE 

1 c 

AH 

10 

2n 

- 1245 

.0484 

31 

AMMONIUM 

FLOU  RIDE 

ah 

In 

1 F 

-3000 

.03  64 

5? 

AMMONIUM 

FLOU  ROSILICA’E 

? N 

, 8H 

1SI 

6F 

- 3530 

.0726 

53 

AMMONIUM 

FORM  kTe 

ic 

5h 

20 

IN 

-2105 

. 04  f 2 

54 

AMMONIUM 

olyc ollate 

2 C 

7 H 

30 

i 

-1410 

53 

AMMONIUM 

OLYO XALLATi 

2 C 

7 H 

AO 

IF! 

-2100 

56 

AMMONIUM 

IODI lE 

’H 

IN 

11 

-33  6 

57 

AMMONIUM 

NITR  ATE 

AH 

2N 

30 

-1090 

. 06  e3 

56 

AMMONIUM 

NITR  ATE 

Ah 

2N 

30 

-1090 

.0623 

5 v 

AMMONIUM 

OXAL  ATE 

9h 

2C 

2N 

AO 

-2160 

.0542 

6C 

AMMONIUM 

OXAL  ATE 

?c 

8H 

AO 

2N 

-2160 

61 

AMMONIUM 

OXALATE  (HYDRATED) 

2 C 

10H 

50 

IN 

-2400 

.0542 

62 
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AMMONIUM  P£RC  RLURATt  CAP) 

1 C L 

AH 

IN 

AO 

-602  .070A 

63 

AMMONIA  TRIbOhANE 

3b 

1 Oh 

In 

-867  .0000 

64 

AMMONIA 

3h 

In 

-1U0A  ■ 02  AA 

65 

AMMONIA  (GASEOUS)* 

3h 

IN 

-649 

66 

AMMONIAT  ED  ALUMINUM  IODIDE 

1 AL 

31 

9N 

27H 

-n 

-676  .0000 

67 

AMMONIATtD  ALUMINUM  IODIDE 

1 AL 

3i 

1 3N 

39H 

-n 

-722  .0000 

66 

AMMONIAT  tD  ALUMINUM  IODIDE 

1 AL 

31 

2 ON 

6 Oh 

-0 

-782  .0000 

69 

AMMONIAT ED  ALUMINUM  IODIDE 

1 AL 

31 

AN 

1 6 H 

-0 

-622  .0000 

/Ci 

AMMONIATtD  ALUMINUM  IODIDE 

1 AL 

3 J 

In 

3H 

-n 

-282  .0000 

71 

AMMONIAT  ED  ALUMINUM  IODIDE 

1 AL 

31 

3n 

9H 

-P 

-A5 A .0000 

72 

AMMONIATtD  ALUMINUM  IODIDE 

1 AL 

31 

5N 

15H 

— n 

-592  .0000 

73 

AMMONIATtD  ALUMINUM  IODIDE 

1 AL 

31 

7N 

2 1 H 

-0 

-645  .0000 

74 

AMMONIAT  LD  OE  hYLLIUM  IODIDE 

IbE 

21 

AN 

1 2 H 

-P 

-AA 2 .0000 

75 

AMMONIATtD  bEKYLLIUM  IODIDE 

1 bE 

21 

AN 

16H 

-690  .0000 

76 

AMMONIATtD  BE hYLLIUM  IODIDE 

IbE 

21 

13N 

39H 

-0 

-792  .0000 

77 

AMMONIAT ED  CALCIUM  IODIDE 

UA 

21 

Ik 

3H 

-n 

-507  .0000 

7a 

AMMONIAT  LD  CALCIUM  IODIDE 

1 CA 

21 

2n 

AH 

-r 

-570  .OOuO 

79 

AMMONIATtD  CALCIUM  IODIDE 

1 CA 

21 

AN 

1 3 H 

-P 

-720  .0000 

8 / 

AMMONIA T ED  CALCIUM  IODIDE 

1 UA 

21 

«N 

2 AH 

_n 

-735  .0000 

81 

AMMONIAT  ED  COPPER  NITRATE 

1 CU 

AN 

A u 

6H 

-o 

-630  .0000 

82 

AMMONIAT  ED  COPPER  NITRATE 

HU 

AN 

to 

12H 

-0 

-769  .0000 

83 

AMMONIAT  ED  COPPER  NITRATE 

1 CU 

6N 

AO 

1 SH 

«.  n 

-822  .0000 

84 

AMMONIATtD  LIThlUh  IODIDE 

1L1 

11 

In 

3H 

_ n 

-608  .0000 

85 

AMMONIATtD  LITHIUM  IODIDE 

1LI 

11 

2N 

AH 

-n 

-AVI  .0000 

8o 

AMMONIATtD  LITHIUM  IODIDE 

1LI 

11 

3N 

9H 

-r 

-751  .0000 

87 

AMMONIATtD  LITHIUM  IODIDE 

1 L I 

11 

an 

1 2H 

-0 

-799  .OOuO 

8b 

AMMONIATtD  LIThlUM  IODIDE 

1LI 

11 

5n 

1 5 H 

_n 

-825  ,0000 

69 

AMMONIATtD  LITHIUM  IODIDE 

2LI 

21 

1 IN 

33H 

-r 

-A17  .0000 

90 

AMMONIATtD  LITHIUM  IODIDE 

1 L 1 

U 

7n 

21H 

-P 

-657  .0000 

'« 1 

AMMONIATtD  MAGNESIUM  IODIDE 

IMG 

21 

2N 

6H 

-500  .0000 

92 

AMMONIUM  ALUMINUM  PERCHLORATE 

12H 

3n 

2 A 0 

1 AL 

6CL 

-5 1 A .075& 

93 

AMMONIUM  AZIDt 

AH 

AN 

A5 2 . 466 

94 

AMMONIUM  AZIDt 

Ah 

AN 

A52  . OAoA 

95 

AMMONIUM  dORO FLUORIDE 

AH 

1 d 

IN 

AF 

- 166  C .0668 

9a 

AMMONIUM  dROKlDE 

AH 

IN 

IbR 

-659  .0676 

97 

AMMONIUM  CYANIDE 

2 h 

AH 

1 C 

-0 

— r\ 

0 .0000 

9c 

AMMONIUM  DICHxOmATF.* 

SH 

2N 

70 

ZCR 

-1688  .0776 

99 

AMMONIUM  OtCYANAMIOfc 

2 C 

AH 

AN 

121  .0000 

100 

AMMONIUM  PLOUR1DE 

AH 

IN 

1 F 

-1287 

101 

AMMONIUM  FORMATE 

5 H 

1 C 

1 N 

20 

-tlOe 

102 

AMMONIUM  IODIDE 

AH 

IN 

11 

-334 

103 

AMMONIUM  PERIODATE 

AH 

IN 

AO 

1 1 

-360  .1270 

104 

AMMON I UM  PEliC  HLURATt  2 

:aoh  ; 

3AOO 

8 5 N 

o 5 CL 

-590  .0704 

105 

AMMONIUM  SULPHATE 

8H 

2N 

40 

IS  ■ 

-t133  • u6 A3 

10a 

AMYL  PERROCENt 

2 0 H 

15C 

1 Fr 

-o  1 .0422 

107 

ANILINE 

7 H 

AC 

1 N 

79  .0367 

106 

ARGON 

1 AR 

-C 

n 

0 .0644 

109 

ASTROGEL L 

3 Oh 

1 5 C 

10 

1 AL 

-A36  .0540 

110 

AZO'bIS'lSObUTYRONITRILE'iti 

8C 

12H 

4 N 

333  .0000 

111 

dARIUM  CRQMATt 

HR 

AO 

-1347 

112 

BARIUM  NlTRATt  * 

2N 

60 

IbA 

-9C7  .1170 

113 

BARIUM  p tKOAI  DE 

IdA 

20 

-c 

-0 

— ri 

-889  .1791 

in 

BASIC  Lt AD  LA  hbUNATt 

3PB 

2 C 

OU 

2 H 

"1 

115 

BENZENE 

6h 

AC 

W .0317 

in 

bERYLLIuM  BOR  OHYDHIDE 

2 U 

IdL 

fcH 

-666  .0218 

117 

BERYLLIUM  HYDRIDE 

HE 

2H 

-399  .0000 

116 

BERYLLIUM  NIT  RIDE 

3 U E 

2N 

_n 

-0 

_ n 

- 1 A A A .0000 

119 

BERYLLIUM  < NO  A -K E A C T I V E ) 

1U2 

C . 06 c8 

120 

BERYLLIUM  (PURE  CRYSTALINt) 

IbE 

0 .0668 

121 

BIS  ’ KIA MINOG LANIDINIUMD ECAdOR 

2 C 

2 AH 

Kb 

12M 

180  .OOuC- 

122 

El  SO  I FLU  UROAM  1 NO HEP TAME 

7 C 

1 Ah 

AF 

2 N 

-J2H  .0426 

123 

BISCCMET  PYLHY DRaZINO)DECAuORA 

AC 

2ah 

Hi) 

AN 

100  .0404 

124 

BIS (DIFl  LOROA  MINO)bUTANE ' Cii 

AC 

SH 

4 F 

2N 

-353  .0437 

125 

PIS(DIFLL0R0AM1N0)D1FLU0RUMeTh 

H 

AF 

in 

-698  .0000 

126 

BIS (DIFL  LORUA MINOJMtTHYL PENT  AN 

6 C 

12H 

4 F 

2 N 

-309  .0000 

127 

61S(DINITROFLUORETHYL)FOPMAL 

SC 

AH 

2 F 

AN 

1n0 

-559  .0576 

126 
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°1S(DIN1  1R0PR  CPYDACETAL  oDNPA 

SC 

1 AH 

A N 

ICO 

-A7C 

• OAfc  5 

129 

SISCDINI  TnOPR OPTO) FORMAL  oDNPF 

7 C 

12H 

AN 

ICO 

-A75 

.0516 

1 3u 

BISCFLUuROXY)  CIFLU0R0 METHANE 

1C 

AF 

20 

-1122 

.00  00 

131 

B1S(TK1N  IT RuETmYDNITR AMINE 

AC 

AH 

bN 

no 

13 

.0  J2 

132 

BIS (DIF L 10R0A  KINO) BUTANE '2 ,3 

AC 

6H 

AF 

2N 

-3A6 

. OA  38 

133 

BIS (DIFL 10R0A  MIND) METHYL  PENT AN 

6C 

1ZH 

AF 

2N 

-363 

.0415 

1 3 A 

9ISCD1FL  LOROAK1nO)OCTANE'2,2 

sc 

Uri 

A F 

2K 

-3  A 7 

.0397 

135 

BISCDIMTRO)  FLUOROPROPANb 

3 C 

5H 

1 ¥ 

2N 

40 

-5  3 0 

. 00  00 

136 

eis  (DIM  TROPR  CP YL) ACETAL  u ON  FA 

3 C 

1 AH 

AN 

100 

-Ab  5 

• 0A91 

137 

E1SCD1NI  1K0PR CPYL) FORMAL  UDNPF 

7 C 

12H 

AN 

100 

-A57 

.0511 

136 

B I S ( FLUO ROXY ) DIFLUOHOMETHANE 

1C 

AF 

20 

-1159 

• 0As3 

139 

PIS (METh  YLH  YD  hAZlNOlDECAbJRANE 

?c 

2 Ah 

10b 

AN 

-A  70 

.0000 

no 

BOR  1 NE  A FMONI  ATt 

Id 

OH 

IN 

- IIaC 

. 02uA 

HI 

PORON  (PORE  C KYSTALINE) 

1b 

0 

• 06  a5 

1A2 

EORON  (AMORPHOUS) 

1b 

37 

.0856 

1 A3 

BORON  C A Kb  I D E 

AB 

1C 

-221 

.09  05 

Ha 

BORON  NI TRIOE 

1b 

IN 

- nA3  0 

.0795 

1 A 5 

PORON  SLORRY 

553K 

Sole 

25  2 C 

(50 

?Al 

-A2  5 

.05  36 

Ho 

BORON  Oa  IDE 

2d 

30 

-A339 

. 06  56 

• H 7 

BORON  (TRONA) 

67B 

30 

-Z5°. 

. 06A5 

1Ao 

BROMINE  RENTA  FLUORIDE 

IbR 

5 F 

-62  7 

. 0883 

1A9 

BROMINE  FENTA FLUORIDE 

1 b P 

5 F 

-S  at 

.OCOC 

150 

BROMINE  MONOFlUORIDE 

IbR 

F 

-HI 

.0000 

151 

BROMINE  TRIFLLORIDE 

IbR 

3f 

-530 

.1012 

152 

BROMINE  TRIFLLORIDE 

IbR 

3f 

-A  A 6 

.0000 

153 

ETNEC 

Ah 

5C 

6n 

150 

-A3  0 

. 06  8 n 

1 5 A 

BTNEN 

AH 

AC 

6n 

no 

39 

. 07  0 A 

155 

BUTAREZ  (PHILLIPS  INFO) 

51 9h 

3-.7C 

oO 

-21 

.0325 

1 5o 

BUTANE  (2  ,2-bI  SDIFLUORB AMINO) 

AC 

SH 

AF 

2N 

-318 

• QuOO 

157 

BUTANE (2  ,3-UI  SOIFLUOROAMINO) 

AC 

8H 

AF 

2N 

-3  AB 

. UOUO 

156 

BOTAREZ  (PHILLIPS  INFO) 

519h 

3 A7C 

so 

-21 

.0325 

159 

BUTYL  SILANE 

12h 

AC 

1SI 

357 

.OOU0 

1 6u 

EUTYLNIT RAMIN t (NORMAL) 

AC 

1 CH 

2 N 

20 

-26A 

.0365 

161 

BUTYL  RUBBER 

iH 

AC 

-376 

.0332 

162 

CALCIUM  bORIDE 

51  9h 

3A7C 

so 

-21 

.0325 

163 

CALCIUM  lARBIDE 

2 C 

ICa 

-23  A 

.0601 

164 

CALCIUM  CARBONATE  (UAC03) 

1C 

30 

ICA 

- l89  5 

165 

CALCIUM  CHLORIDE 

2CL 

1 C A 

-1710 

.0775 

166 

CALCIUM  FLUORIDE 

2F 

1CA 

- 372  2 

. 1 1 a9 

1 67 

CALCIUM  HYDRIDE 

2 h 

ICa 

-1092 

.06  1a 

166 

CALCIUM  NITRATE 

1CA 

2N 

60 

-0 

-n 

-1363 

• u6  52 

16V 

CALCIUM  PEROXIDE 

HA 

20 

-3 

-0 

„r 

-2185 

.0000 

170 

CALCIUM  CXIDE  (CAO) 

1 0 

ICA 

-2710 

171 

CANDELIL  LA  *A X 

2 C 

AH 

-A53 

.0325 

172 

CANDELIL  LA  NX  X 

2 C 

AH 

-A  5 3 

.0325 

173 

CARBON  b LACK 

1C 

n 

.0637 

17a 

CARuON  D 10 X I D l 

1 C 

20 

- £ 13  7 

.0398 

175 

CARBON  D ISULF  IDE  (WHEN) 

1 C 

2 S 

276 

• 0A56 

176 

CARBON  h CNOXI DE 

1 C 

10 

-9  A 3 

.5721 

177 

CARBON  (GRAPHITE) 

1 C 

0 

.0818 

176 

CARBON  TETRACHLORIDE 

1 CA 

ACL 

-216 

17V 

CELLULOS  L 

6 C 

1 Oh 

50 

-1A17 

. OA  56 

180 

CELLULOb  l ACE  TATE  (2) 

H9h 

1 G9C 

7A0 

-1183 

.0539 

181 

CELLULOSt  ACETATE  CCARBOPOL) 

1A9H 

1 09  C 

7 A 0 

-1079 

, Oa  as 

1 P 2 

CELLULOSE  DINITRATE 

6 C 

6H 

2 N 

90 

- 714A 

.0599 

183 

CclLULOS  E TRI nitrate 

6C 

7h 

3N 

110 

-52A 

.0599 

184 

CELOGEN 

2 C 

AH 

20 

AN 

-1001 

185 

CERIUM 

HE 

-0 

-0 

-0 

-r 

0 

. 2A  1 9 

186 

CERIUM  N IT  RID E 

HE 

In 

-0 

-C 

-0 

-5  08 

.0000 

187 

CESIUM 

ICS 

-0 

-0 

-0 

..r 

n 

.0676 

1 8o 

CESIUM  (PURE  CRYSTALINE  ) 

ICS 

0 

. . 06  7o 

189 

CESIUM  AZIDE 

ICS 

3N 

-12 

.0000 

190 

CESIUM  CARBONATE 

1 c 

30 

2CS 

-821 

.1521 

191 

CESIUM  HYDRIDE 

US 

1 H 

“0 

-0 

21  7 

.1231 

192 

CESIUM  PERCHLORATE 

ICS 

1 C L 

AO 

-0 

-0 

-AA7 

.1201 

193 

CESIUM  TUNGSTEN  FLUORIDE 

6 F 

1C  j 

1w 

- 1160 

.1770 

19* 
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CHLORINE  TRIF  LUO  R 1 D 2 

1 CL 

IF 

-48C  .0652 

195 

CHLORINE 

2CL 

-76  .0536 

1 9o 

CHLORINE  HEPTv-XlDE 

2 CL 

70 

300  .0000 

197 

CHLORINE  HONO  FLUOR  I 0 E 

UL 

1 F 

-222  .0000 

198 

CHLORINE  PENT AFLU0R1DE  (bAS) 

1 CL 

5 F 

-427  .0000 

199 

CHLORINE  PENT  AFL'JORIOE  < CL  F 5 5 

1 CL 

5 f 

-464  . 06n2 

200 

CHLORINE  TRIFLUORIDc 

1CL 

IF 

-410  .0000 

201 

ChROMIUM 

UR 

-0 

-0 

-0 

-0 

0 .2599 

202 

C1RC0  LI faHT  P ROCESS  OIL 

32H 

1 5u 

-320  .0250 

203 

CIRCO  LI  bHT  P ROCESS  OIL 

3 2 H 

1 5 C 

-320  .0250 

204 

COPPER  C RLOkl  Uh 

2 CL 

2Cu 

-328  .1270 

205 

COPPER  OXIDE 

10 

2 CL 

-278  .2160 

cOC 

CCPPEk  C hROMI  TE 

30 

ICu 

1CF 

0 .2150 

207 

COPPER  H YOROX  iDL 

2h 

2u 

ICU 

-1099  .1216 

2Co 

COPPER  CaIDE  (HYDRATED) 

2 H 

20 

ICU 

-1099  .1216 

20V 

CUPRIC  OXIDE 

nu 

10 

-439 

2 1 U 

COPPER  (FURL  UYSTAL.TNE) 

uu 

0 .3223 

211 

C Y AN  AM  1 D E 

1 c 

2H 

2 N 

-0 

_n 

219  .COOC 

212 

CYANOtaAU nyl  azide 

2C 

2H 

ON 

881  .0000 

a1  3 

CYANObEN  (GAScOuS) 

2 C 

2N 

1414 

214 

CYCLCHEX  YL  AZ  IDE 

6C 

1 1 H 

3n 

207  .0356 

215 

CYCLOPEN  TYL  A ZIDE 

5C 

9H 

In 

385  .0353 

2I  o 

CYCLOTET  RAMtT  hYLENE  TETRA  HhX 

8h 

4 C 

£n 

80 

61  .0686 

217 

DECAD 100  RANE 

6h 

2b 

n .0079 

2 1 6 

DECAeOKA  NE 

10b 

14H 

-129  .0339 

219 

OEKADIAZ ENE 

1"b 

22H 

4N 

-381  .0000 

220 

L 1 AM  IN 0 DIBORhNE 

2b 

12H 

2N 

-745  .0000 

22 1 

0 I AM I NOb EANI D lhc  NITRATE 

1C 

3n 

6N 

30 

-239  .0000 

222 

DIAMlNOb 0AN1D  1N1UM  AZIDE  (DAZAL 

2C 

8H 

ON 

741  .0513 

223 

DIAflMONl  LH  OE  CAbORANE 

10d 

1 oh 

2N 

-450  .0000 

224 

DIAZ  I DOT  RIN1T KAZ Ah E PTANE D ATH 

4C 

8H 

12N 

60 

458  .0000 

22  5 

0 160  R AN t 

2b 

6H 

354  .COOO 

226 

DIBUTYL  FKTHA  LATE 

2 2 H 

16C 

40 

-733  .0378 

227 

DIBUTYL  RTHALATE 

575  C 

7«0H 

144w 

-754  .0376 

226 

DIESEL  0 1L 

22  H 

12C 

-476  .0254 

229 

DIETHYL  PHTHALATE 

1 2 C 

14h 

40 

-733 

23d 

DIETHYL  TRIAMINE 

1 5 H 

4C 

in 

-149  .0344 

231 

DIETHYLtNE  GLYCOL  DINITRATE 

4C 

8H 

2N 

70 

-520  .04V7 

232 

DIFLUOROAHINE 

2 f 

1 H 

IN 

-600  .0000 

233 

DIFLUOROMETHY  LENEBISOXYFLUORID 

1C 

4F 

20 

-1121  .0433 

234 

D1B0RANE 

2b 

6h 

179  .0158 

235 

DIETHYL  FHTHAtATE 

Uh 

1 2C 

40 

-832 

236 

DIETHYL  FHThA  LATE 

14H 

12C 

40 

-832 

237 

DIBUTYL  RHTHA  LATE 

1?C 

22H 

40 

-733 

238 

DICYAND1 AMIDE 

2 C 

4H 

4 N 

85  .G5G5 

239 

DICYAhO'Z'BUT Yht'1,4 

6 C 

4H 

2N 

641  .0415 

240 

D1HVDR0N IT RON ITKIMInOPYRIOINE 

5 C 

4H 

‘ 4 N 

40 

143  .0650 

241 

Dl-N-PRO  FYL  A DIPATE 

121 

22h 

40 

- 1184 

242 

DIMETHYL  AMMON  LITHIUM  IODIDE 

1 L I 

11 

4 C 

13H 

IN 

-477  .0000 

243 

DIMETHYL  AMMON  LITHIUM  IODIDE 

1 L 1 

11 

6 C 

19H 

u 

-473  .0000 

244 

DIMETHYL  AMMON  LITHIUM  IODIDE 

1 L I 

11 

IOC 

31H 

IN 

-463  .0000 

245 

OIMETHYLAMINE  -BORANE  ADDUCT 

2 C 

1 CH 

1 B 

IN 

-516  .0000 

246 

DIM  TRO  TOLUENE 

6H 

7C 

2N 

40 

-6200 

247 

D1NITR0PREN0X V ETHANOL 

98H 

104C 

26N 

750 

-271  .0565 

24b 

DIM  TROP  ROPYL  ACRYLATE 

SH 

6C 

2 N 

60 

-514  .0471 

249 

D IOC  T YL  ADIPATE 

42h 

22C 

40 

-733  .0332 

250 

OIOCTYL  AZELATE 

48n 

2 5C 

40 

-855 

251 

DIOCTYL  AZELATE 

n8H 

2 5C 

NO 

-655 

252 

D1TRISD1 FLUOR  CAM INOMETH Y LURE  A 

3C 

2H 

1 2 F 

8N 

10 

-203  .0679 

253 

DODECAHY  DRODE  CabOR A TED  I AMMINE 

10b 

1 Bh 

2 N 

-564  .0361 

254 

DULC ITOL 

6C 

1 4h 

60 

-1740  .0530 

255 

DYNAMAR  732/74L 

970H 

549C 

11. 1 

1430 

-1420  .0376 

256 

0 YNAMXR  HX-73C 

754H 

4n5C 

2440 

-1200  .0420 

257 

DYNAMAR  HX-74 i 

V4  2H 

5 54C 

con. 

810 

-380  .0360 

256 

EVT7  (A  MIXToKt) 

441  H 

133C 

5 2 N 

2320 

6AL  <9CL 

-552  .0604 

259 

EPOXY  2U  1 

24H 

16c 

40 

-661  .0404 

260 

40 
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F PON  616 

2 4 H 

21  C 

40 

0 

261 

ERYTHRI  T CL  TE  IRANI TR ATE 

4 C 

6K 

4N 

120 

-395  .0000 

262 

ESTANE  9o7h 

536C 

1 2 N 

1400 

-910  .0379 

263 

ESTANE  b 

55H 

302C 

IN 

100 

-940  ,0376 

264 

ethaneth  iol 

2 C 

6H 

IS 

-0 

-253  .0000 

265 

ETHANE  <1  ,1-DI nITRO) 

2C 

4h 

2 N 

40 

-269  .0000 

266 

ETHANEd  ,1,1-TRINlTRO) 

2 C 

3H 

3N 

60 

-166  .0552 

267 

ETHANEd  ,2-SI  S 6 I F LUOROA  MNO  ) L 

2 C 

4H 

4 F 

2N 

-356  .0000 

268 

ETHANEd  ,2-bI  S DIFLUOROAMINOIG 

2 C 

4H 

4 F 

2N 

-310  .0000 

269 

ETHANEd  ,2-DI  TtTRAZOLYL) 

4 C 

OH 

8N 

639  .0000 

27u 

ETHANOL 

2 C 

6H 

10 

-0 

-n 

-1440  .0000 

c71 

ETHYL  C E NTRAL 1 TE 

17C 

2 OH 

2N 

10 

-127 

272 

ETHYLENE 

2 C 

4H 

289  .0205 

273 

ETHYLENE  CAHbCNATE 

3 C 

4H 

30 

-1576  .0000 

274 

ETHYLENE  OIHY  DRAZ INE 

12H 

2C 

4n 

346  .0396 

275 

ETHYLENE  OINI  TRAMINE  (ED  NA J 

2 C 

OH 

4N 

40 

-158  .0632 

276 

ETHYLENE  bIS  ( A MINObU AM DI  NEAZID 

5 C 

16H 

1 4 N 

496  .0000 

277 

RAPE  THIN 

6 C 

6H 

OF 

6N 

ino 

-318  .0000 

278 

RAPE  THIN 

6 C 

8H 

6 F 

6N 

10o 

-263  .0000 

279 

FERRIC  OXIDE  (ANHYDROUS)* 

30 

2 F t 

-1230  .1818 

280 

FERRIC  OXIDE  HEM T 1 TE 

2FE 

30 

-1235  .1848 

281 

FLOROX  (CLFJO) 

10 

3F 

1 CL 

-371  .0666 

282 

FLUORINE 

2 F 

-82  .0543 

283 

FLUORINt  NITRATE 

IF 

IN 

30 

31  .0000 

284 

FLUORINE  (LIQUID) 

2 F 

-76  .0543 

285 

FLU0R0'2  ,2'DI  MTROETHANOL'2 

2 C 

3H 

1 F 

2N 

50 

-741  .0000 

286 

FLUOROET  BANE ( 1 , 1 -D I NI TRO -1 -) 

2 C 

3H 

IF 

2N 

40 

-468  .OOuO 

287 

FLUOROTR  1NITR UhETHIOE 

1 C 

IF 

3N 

60 

-221  .0573 

288 

FLUOROXY  TRIFL  OQKOME  Th ANE 

1 C 

4 F 

10 

- 1769  .0000 

289 

FCRHAHID  E 

3H 

1C 

IN 

10 

-1370  .0410 

290 

FREON  116  (RC6ERS) 

2 C 

6f 

-2195 

291 

GASOLINE  (LIQUID) 

46  h 

21C 

-794  .0257 

292 

GENPOL  A -20 

75  H 

5 5 5C 

3700 

-1110 

293 

GILSIN1T  E 

B66H 

7 44C 

6N 

6 S 

-400  .0384 

294 

GLUTAMIC  ACID 

5 C 

9H 

40 

IN 

-1610  .0555 

295 

GUANIDINE 

5 H 

1C 

3N 

-0 

-0 

-288  .0000 

296 

GUANAD1NE  CARBONATE 

3C 

10h 

30 

6N 

-1290 

297 

GUANIDIN E NIT  HATE 

6H 

1C 

4 N 

30 

-843  .0503 

298 

GUANIulN  IUMN1  Tl RA MINOT ETRAZLAT 

2 C 

7H 

9 N 

20 

141  .0000 

299 

GUANYLAZ  IDE  N ITRATE 

1C 

4H 

ON 

30 

26  .0000 

300 

H C BIND  er  (p  aul) 

106H 

71C 

6N 

-102 

301 

heptadyn  e 

8h 

7C 

-1127  .0293 

302 

HEXANE 

1 4h 

6C 

-464  .0235 

303 

HEXACYAN  C'3'H  EXENE 

12C 

6H 

6 N 

862  .0444 

j04 

HEXACYAN  C'J'H  EXYNE 

1 2 C 

4h 

6N 

1045  .0437 

305 

HEXACYAN C'3, 5 'OCTADIVNE 

14C 

4H 

6N 

1146  .0466 

306 

HEX  AXIS  LIFLU OROAMIhO  DIPROPYL 

8H 

1 2 F 

6N 

10 

6C 

-315  .0596 

307 

HEXANE  (2,2,5  TRIMETHYL) 

2Ch 

9C 

-537  .0246 

308 

KEXANITR  OETHA  NE  (HNE  ) 

2 C 

6N 

1 20 

95  .0812 

30v 

HMX 

4 C 

6H 

8N 

80 

61  .0686 

31  u 

HTPB  (SINCLAIR) 

103H 

73C 

10 

13  .0332 

311 

HYCAR 

139H 

70C 

10 

-121  .0339 

312 

HYDRATED  AMMONIUM  PHOSPHATE 

3n 

18H 

70 

IP 

-3010 

313 

HYDROXYETHYL  CELLULOSE 

35H 

22C 

140 

-1200  .0484 

314 

HYDROXYL  AMMONIUM  NITRATE(NBS) 

2N 

3H 

40 

-908 

315 

HYDROXYL  AMMON  IUMHERCHLOR ATE 

1 CL  4h 

IN 

50 

-497  .0767 

316 

HYDRAZINE  NITRATE 

5 H 

3N 

30 

-531  .0595 

317 

HYDROXYL  AMMONIUM  NITRATE(NBS) 

2N 

3H 

40 

-908 

318 

HYDRAZ1N E 

4H 

2N 

376  .0364 

319 

HYDRAZ1N E All DE 

5H 

5N 

727  .0470 

■320 

HYDRAZINE  CYANC FORMATE 

4C 

5H 

5N 

579  .0462 

321 

HYDRAZIN E DIB  Of ANE 

2b 

1 Oh 

2N 

-500  .0339 

322 

HYDRAZINE  HYDRATE  (N2H4.H20) 

6H 

2N 

10 

-2900  .0378 

323 

HYDRAZIN  E .MT  NOFORM 

5 H 

1C 

5N 

60 

-95  .0676 

i24 

HY0RAZINE(1,1 -METh YLCYAN OETHY 

4 C 

9H 

3N 

339  .0353 

325 

HYDRAZIN  E(2)B  CRANE (8> COM  POUND 

3b 

28H 

4 N 

-60  .0000 

326 
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HYDRAZINE(3)B tKANE(1C)C0MP0UNQ 

10b 

e4h 

6N 

-1  OR  .0000 

327 

HY  DRAZ  IN  1:  (4)8  CRANE ( 1 0) CO HPOUND 

10b 

28H 

8 N 

-92  .0000 

328 

HYDRAZINE  DIP  EKCHLOR ATE 

6H 

2N 

.SO 

2CL 

-309  .0797 

32V 

HYDKAZ IN  1UH  0 1PERCHL0RAT  E 

2CL 

6H 

2N 

SO 

-296  .0361 

330 

HYDRAZI  < IUM  N ITROFORMATE  (HNF 

1C 

5h 

5N 

60 

-94  .0671 

331 

hyoraz in ium  perchlorate 

HL 

5H 

2 N 

40 

-320  .0700 

332 

HYDRAZOb 1SIS0 bUTYRONITRI LE 

SC 

14H 

4 N 

172  .0000 

333 

hYDRAZOI C All  D ( GaS  c 00  S ) 

1 h 

3n 

/ 

1635 

334 

H Y D fc AZCT cTRAZ  DLL  '6  ,£> 

?C 

4h 

1"N 

104  ,0050 

335 

HYDROt AR  dUN  PCLYMtR 

2h 

1C 

-239  .0332 

33t 

HYDROGEN  (GASeUUb) 

2r 

0 

337 

HYDROGEN  AZIDE 

1h 

IN 

1 46  C .0394 

33e 

HYDROGEN  AZlDl 

1 H 

3n 

V.30  .0000 

339 

HYDROGEN  CYAN  i I) E (GASEOUS) 

In 

1C 

1 H 

932  .0248 

340 

HYDROGEN  CYANIDE  (LIQUID) 

1 H 

1C 

In 

1154  .0325 

341 

HYDROGEN  FLuOhIDE 

1 h 

If 

-35S1  .0357 

342 

HYDROGEN  FREE  RADICAL 

1 H 

5 2 Cv  0 

343 

HYDROGEN  PEROXIDE  (100  PC) 

2h 

20 

-1319  .0508 

u4» 

HYDROGEN  PERO  x!DE  ( 5 ri  PC  ) 

tsori  : 

>720 

-1927  .0430 

345 

HYDROGEN  PERO  AID  E <70  PC) 

746H  579y 

-1664  .0464 

34c 

HYDROGEN  PEKOaIDE  (VC  PC) 

o42h  £ 

i.  60 

-1439  .0501 

34  7 

HYDROGEN  PEkOaIDE  (GASEOUS) 

2h 

20 

-958  .0000 

d4d 

HYDROGEN  SULFiDE 

2h 

IS 

-141  .0763 

349 

HYDROGEN  (CRYOGENIC) 

2h 

-1068  .0026 

35u 

HYDROAYE  YHYO  RETHAChYLAT e 

1 Oh 

6C 

20 

- 12&0  .04eG 

351 

HYDkOXYO  radical 

1m 

1u 

-L 

-0  _r 

591  .0000 

352 

H Y OR  OX  Y L AH INE 

3h 

IN 

10 

-793  • 00  uu 

.>53 

HYDROXYtTHYL  CELLULOSE 

3 5 h 

22C 

140 

-1200  .0464 

354 

HYDROXYT  tRHIN  at  POlYUUTADltNE 

103h 

73C 

10 

13  .0332 

355 

HYCAT  (BENNETT) 

36H 

29C 

2FE 

40  .0441 

356 

HYCAT  (bENNETT) 

36h 

29c 

2 F E 

40  .0441 

.357 

I DP  (b  « LEE) 

3FH 

1 VC 

20 

-90?  .0312 

35e 

IODIC  AC  ID 

1 H 

11 

20 

-0 

-324  .1671 

359 

IODINE 

21 

-0 

•0 

-o  -o 

0 • 17o0 

560 

IODINE  P ENTAF LUURlDt 

5 F 

11 

-923  .1140 

361 

IODINE  PEnTOXIDE 

50 

21 

-127  .1732 

2.62 

IODINE  THICHLlRIDE 

11 

3CL 

-0 

-o  -<■' 

-90  .1125 

363 

IODOFORM  (OH  ii) 

1 H 

1C 

31 

-35  .1443 

564 

IKON  OXIDE 

30 

2 F E 

-1230  .1840 

365 

IKON  OXI  DE  ( Y eLLOd ) 

2 h 

40 

2 F E 

-1490  .1318 

366 

IRON 

1 F E 

0 .2837 

367 

ISO  OCTANE 

16H 

SC 

-470 

368 

J PA  (LIQUID  TORbOJET  FUEL) 

17H 

9C 

-281  .0254 

369 

JP5  (MOnT  steyens  standard) 

19H 

IOC 

-3S7  .0296 

37C 

KRATON 

4 H 

3C 

-1073  .0340 

371 

KRATON  STYRENE  BUTADIENE 

4H 

3C 

-1073  .0340 

372 

KRATON  (CO-POLYhER) 

6h 

4C 

-100  .0342 

373 

LAM1NAC  a1 1 6 

55  5 H 

5SSC 

1710 

-574 

374 

LEAD  ACE  TYL  SALICYLATE 

1 4 H 

18C 

00 

1 PB 

-857 

375 

LEAD  OXIDE  (P  IN1UH) 

4o 

3Pu 

-262  .3266 

376 

LEAD  uET A REC  ORCYLATE 

21H 

7C 

70 

1 PB 

0 

377 

LEAD  OXIDE 

1 P B 

10 

-235 

37o 

LEAD  1 OD  ATE 

1 P B 

21 

60 

-267  .1913 

379 

LEAD  SALICYLATE 

1 Oh 

14C 

60 

1 Pb 

-84  .0337 

380 

LEAD  2-ETHYL  hEXOATE 

j4H 

1 6C 

4u 

IPS 

C 

381 

LEAD  2-ETHYl  hEXOATt 

34H 

1 6 C 

40 

1 PB 

0 

382 

LEAD  AZIDE 

6N 

iPu 

397  .0000 

38  3 

LEAD  IOD  ATE 

1 PB 

21 

60 

-267  .1913 

384 

LEAD  OXI DE  (L ITMARGE ) 

10 

IPu 

-235  .3440 

385 

LEAD  OXIDE  (MASSICOT) 

10 

IPu 

-235  .2868 

386 

LEAD  DIOXIDE 

20 

'1  Pd 

-276  .3364 

387 

LEAD  SALICYLATE 

1 Oh 

1 4 C 

60 

1 PB 

-84  .0337 

3SS 

LEAD  OKI DE  (P LAT TNE K I TE  ) 

20 

IPu 

-66  .3364 

389 

LITHIUM  ALUMINUM  HEXA  HYDRIDE 

1 AL 

6H 

3LI 

-1417  .0401 

390 

LITHIUM  ALUMINUM  PERCHLORATE 

3LI 

240 

1 AL 

6CL 

-645  .0897 

391 

LITHIUM  ALUMINUM  TETRA  HYDRIDE  1 AL 

4h 

1 L I 

-690  .0331 

392 

42 
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LITHIUM  AMIDE  * 

2 H 

ILL 

In 

-1894 

.0329 

393 

LITHIUM  AZIDE 

1 L I 

3N 

57 

. 0000 

394 

LITHIUM  BERYLLIUM  HYDRIDE 

luE 

4H 

2LI 

- 29t>8 

• OGuO 

395 

LITHIUM  bOROH  TDK  IDE 

1o 

4H 

ILI 

- 1 13 1 

.0240 

39o 

LITHIUM  LARbl  DE 

2l  I 

2C 

-C 

-0 

-r 

-375 

• 0596 

397 

LITHIUM  CARBONATE 

2LI 

1C 

30 

- 3900 

.0762 

39o 

LITHIUM  CICYANAhlOE 

2C 

1L1 

im 

-120 

.0003 

399 

LITHIUM  FLUOR  IDE 

1 L I 

IF 

-5620 

.09  39 

400 

LITHIUM  HYDRI DE 

1 H 

1 L l 

-2726 

.0296 

401 

LITHIUM  hYDKOXIDE 

1 H 

iLi 

10 

-4868 

.0917 

402 

LITHIUM  NITRATE 

1 L I 

IN 

30 

-1670 

.0659 

403 

LITHIUM  NITRIDE 

3LI 

1 in 

-1355 

.0498 

404 

LITHIUM  PERCHLORATE  (LICL04) 

1 CL 

ILi 

40 

-8  54 

.0877 

405 

LITHIUM  PERIODATE 

1 L I 

40 

11 

-49  0 

.1520 

40b 

LITHIUM  (PJKE  CRYSTALINE) 

1 L I 

0 

.0193 

407 

LP-33 

3 1 4 C 

oSSH 

1070 

121S 

-696 

.0453 

406 

LP-2C5 

4 1 6 C 

6 46  H 

350 

87S 

-720 

.04  08 

409 

MAGNESIUM  (PURE  CRYSTALINt) 

IhG 

■* 

C 

■ 0638 

4 1 U 

MAGNESIUM  ALUMINUM  HYDRIDE 

2aL 

8 H 

IMG 

-365 

.03  78 

4 1 1 

MA6NESIUM1  BOR  IDE 

2u 

IMu 

-478 

,0V  70 

412 

MAGNESIUM  cya  namioe 

IMG 

1C 

2 in 

-0 

-r 

-937 

.0000 

413 

MAGNESIUM  FLUORIDE 

2F 

IMu 

-2862 

• 100  3 

414 

MAGNESIUM  HYDRIDE 

2h 

IMu 

-64  5 

.0524 

415 

MAGNESIUM  NIT  HATE 

1 MiG 

2N 

60 

-0 

-r 

-1272 

-0731 

416 

MAGNESIUM  OXI DE 

10 

1 M u 

-3610 

.1300 

417 

MAGNESIUM  PERCHLORATE 

30 

Imu 

2 CL 

-630 

, U9  39 

418 

MAGNESIUM  (NON-REACTIVE) 

1 03 

0 

.0628 

41V 

MAGNESIUM  OXI DE 

24JMG2  4bu 

-3567 

.1292 

420 

MAPO  (ARC) 

18h 

9C 

10 

3n 

ip 

-266 

421 

N-GUTYL  FERROCENE 

i a h 

1 4 C 

1 FE 

1C 

.0430 

422 

MERCURIC  fluoride 

2F 

IHG 

-398 

.3216 

423 

MERCURIC  OX I D E 

10 

1 H U 

-100 

.4023 

*24 

MERCUROUS  AZI DE 

2HG 

6n 

292 

.0000 

42S 

MERCURY  (LIGUID) 

IHG 

0 

.4673 

426 

METHANE 

1C 

4h 

-1271 

.0153 

427 

METHANE* 

4H 

1C 

-1118 

428 

METhANOL 

4H 

1C 

10 

- 176  C 

.0267 

429 

METHOaYAMINE 

1C 

Sh 

IN 

1C 

-276 

. 00  jQ 

430 

"ETHYL  ACRYLATE  (LIU.)  -HC- 

6H 

4C 

20 

-954 

.03o4 

431 

METHYL  ALLOhOl 

4 H 

1C 

10 

-1761 

• Q2o5 

432 

METHYL  AKMOM  A 

5H 

1C 

In 

-216 

.0236 

433 

METHYLN1 TROAC  tTATE 

3 L 

5H 

IN 

40 

-922 

.0000 

434 

MIXED  HYDRAZINE  FUEL  3 

647H 

93C 

23 1 N 

297 

.0323 

435 

MIXED  OXIDES  OF  NITROGEN 

63N 

1 CIO 

43 

.0520 

Hit 

MIXED  HY  ORAZI NE  FUEL  5 

114H 

12C 

4 6N 

60 

149 

.0361 

437 

MIXED  HYDRAZINE  FUEL  3 

64  7h 

93C 

23  1 N 

297 

.0323 

436 

MON  25'75 

1?5N325o 

69 

.0498 

439 

MONOBASIC  AMMONIUM  PHOSPHATE 

IN 

6H 

IP 

40 

-3020 

.0651 

440 

MONOBASIC  CUPRIC  SALICYLATE 

1 4 C 

1 0H 

70 

2CU 

-700 

441 

MONOBASIC  CUPRIC  RESORCYLATE 

1 4 C 

1 0H 

90 

2CU 

-278  2 

442 

MONOBASIC  LEAD  RESORCYLATE 

1 4 C 

10H 

90 

2PB 

-1900 

443 

MONOBASIC  LEAD  SALIC  YLAT 

1 4 C 

1 0H 

90 

2PB 

-332 

444 

MONOMETHYL  HYDRAZINE  (MMH) 

6H 

1C 

2N 

276 

.0316 

445 

N P AMIN  l 

7H 

6C 

IN 

-128? 

.0329 

446 

N F 48  F A 

1.0 

IN 

bF 

-164C 

.08  53 

447 

NICKEL 

INI 

0 

.3215 

446 

NICKEL  OXIDE 

10 

1 in  i 

-773 

449 

nickel  Carbide 

3 N I 

1C 

-0 

-0 

-n 

58 

.26  72 

*50 

NICKEL  C MLORI DE 

2CL 

1m  * 

-5oO 

. 1 2lj 

451 

NITROGEN 

2N 

-104 

.0292 

452 

NITROGEN  TETR OXIDE  (N204)  LIU 

2 in 

40 

0 

.0517 

453 

NITROUS  CXIUE 

2N 

10 

-0 

-n 

4 47 

.0714 

45a 

NITROCELLULOSE  ( 1 2 .bPE»C EnT  n)755h 

6 C 

24  5 N 

9900 

-617 

.05  60 

455 

NITROUlY  CERIN 

3 C 

5ri 

In 

90 

-400 

.05  78 

45o 

nitrate 

5h 

in 

3 U 

-932 

457 

NITRIC  ACID  (uAS) 

1 h 

In 

30 

-509 

.OOCu 

45E 

43 
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N1  TRO AMI  NOGOA  Mu  1 n t 

1C 

5h 

5N 

20 

45  .COOO 

459 

NlTROETri  ANE 

2 c 

5h 

1 

20 

-442  .0376 

46u 

NITROGEN  PENTuXIDui 

2N 

So 

-V 

- ^ _ r 

w 

-93  .0593 

46  1 

NITROGEN  TETR  IXIDE  (GASEOUS} 

2n 

40 

24  .0000 

i«62 

NITROGEN  TRIFLUORI0E 

if 

In 

-414  .0000 

463 

NITROGEN  TRIFLUGRIDb 

IF 

In 

-460  .05o2 

464 

N I TRO GLI A itTL  A ZIuE 

1C 

2h 

6N 

20 

54?  . DOoC 

465 

NITRONET  FANfc 

1 C 

3h 

IN 

20 

-443  .0000 

466 

NITRONIT  RAMIN  CHYRIDIMUHCL04 

5C 

5m 

1 CL 

4 N F 0 

7 .065') 

467 

NITRONIUF  ALUMINUM  PERCHLOrAT 

1 AL 

6Cl 

IN 

ICO 

-1or  • OuJC 

*66 

NITRONIUR  PER  ChLORATE 

1 C L 

IN 

00 

61  .0794 

469 

NITROFROFENE  FOLYMER 

3 C 

5H 

In 

20 

-352  .0000 

+ 7u 

NI  TRO  SOA  FINE  <N,‘:-Olrt£THTU 

2 C 

6H 

2 N 

10 

16  .0036 

471 

NITROSOl  bIND ER 

1 4 5 h 

K5C 

46N 

1640 

-476  .0515 

472 

NITROSYL  FLUORIDE 

if 

IN 

10 

-324  .0000 

1.73 

NITROSYL  perchlorate 

1 CL 

IN 

5 u 

-264  ,Q7o3 

474 

NITROSYL  1ETRA FLUOkOCHLOKATfc 

1 CL 

4 F 

IN 

io 

-489  .1029 

475 

NITROURE  A 

It 

2h 

3 u 

30 

-611  . OOuO 

470 

NITR Yu  F LUORI rE 

1 F 

IN 

t<) 

1 

i -290  . jOu? 

477 

NI TRYLTE  TRAFL  GOROCHLORAT  E 

1 CL 

4 F 

IN 

20 

-305  .0000 

476 

NITRIC  AlIO  am) 

1h 

In 

iu 

-658  .0542 

+ 79 

NITROGUA  MDIN  t 

H 

4H 

4N 

20 

-209  .GOOD 

48L 

N-AhYL  ALCOHOL 

5L 

12h 

10 

-922  +509 

481 

N-AMYL  ALtOHOL 

5 C 

12H 

10 

-922  .0509 

482 

N-PHENYL  MORPH  CLINE 

1 3 H 

IOC 

If. 

1 0 

-123  .0409 

483 

NORMAL  HcPTANL 

1 6 H 

7 C 

-44  8 

484 

N.N-01MTK0-N -BOTYLAMINE  (ONha 

4 C 

9H 

3N 

40 

-13  .0433 

485 

02/H2  (0/F  *>10.6058) 

2.89H 

5 940 

C 

486 

02/H  2 (0/F  -lu.OOsB) 

E89h 

5940 

p 

48  7 

OCTANE 

ISh 

El 

-470 

488 

OLEIC  ACID  (VEGETABLE  01D-HC- 

34  H 

18C 

20 

-723  .0323 

489 

OTTO  FUEL  2 

999h 

430C 

2 N 

5030 

-696 

690 

OX  AH  I D ( L . LEE) 

4 H 

2C 

2N 

20 

-1376  .0602 

491 

OXYCHLOR  INE  T KIFLUORIDE 

10 

3F 

1 CL 

-371  .0686 

492 

OXYCHLOkINE  TRIFLUORIDE 

10 

3F 

1 CL 

-3oO  .0669 

493 

OXYGEN  (GAS) 

20 

0 

494 

OXYGEN  D 1FL1I0  HIDE 

2 F 

10 

-155  .0549 

495 

OXYGEN  DIFLUORIDE 

2 F 

10 

■8 1 .0000 

496 

OXYGEN  ( LI8UI u) 

20 

-97  .0412 

497 

OZONE 

3o 

631  .0523 

496 

PENTAgORANE  (GASEOUS) 

5b 

9H 

237  .0231 

49  y 

PENT  AoOk  anE  (LI8UID) 

5b 

9H 

122  .0000 

500 

PENT  AtRI THRIT  CL 

5 C 

12h 

40 

-1609  .0523 

501 

PEHTAERY  InRIT CL  TkTR ANIT  RATE 

5 C 

OH 

4N 

120 

-401  .0640 

502 

PENT  AX, I S (HYDRAZINL)DECASORANE 

ICu 

34h 

ION 

40  .0000 

50? 

PERCHLORIC  ACID  (ANHYDROUS) 

1 CL 

1 H 

40 

-IIP  .0639 

80* 

PERCHLORYL  FL LOR  IDE  (CL03F) 

1 CL 

IF 

30 

-50  .0000 

505 

PEPFLUORC  METhALRYLATE 

6 H 

El 

20 

6F 

- 1'iQO  .06  50 

50o 

PERFLUOR CFORM AM1DINE  f PF  F ) 

1C 

4 F 

2N 

-29 C .0000 

507 

PERFLUOR CGUAN 1DINE  ( PFG)  (Lie) 

1C 

5F 

3N 

127  .0000 

506 

PERFLUOR CGUAN  IDINE  (PFG)  (GAS) 

1C 

5 F 

IN 

162  .0000 

509 

PERFLUOR (PIPERIDINE 

sc 

1 IF 

IN 

-1728  .0625 

510 

PERFLUOR (PIPE  RID  INE 

5 C 

1 1 F 

In 

-1703  .OOCO 

511 

PETKIN 

9H 

5C 

Z N 

100 

-513  .0557 

512 

petrin 

9h 

5C 

3N 

100 

-513  .0557 

513 

PHENOXY 

98-H 

1 34C 

26N 

750 

271  .0565 

514 

PHENYL  A Z1DE 

6 C 

5H 

Hi 

694  ,03v3 

515 

PHOSPHOR  LS  (RED) 

IP 

-136  .0794 

516 

PLAST1S0L  NITROCELLULOSE 

75  5 H 

o OOC 

24  5 N 

9900 

-586  .0599 

517 

PLEX IGLA  SS 

PH 

5C 

20 

-906  .0426 

8 1 8 

PnC 

755H 

600C 

24  5n 

9900 

-586  .0599 

519 

POLYMtTHYL  VI NYLTETR AZOL E 

6h 

4 C 

4N 

170  .0462 

52L 

POLYPROP YLEN  GLYCOL 

1 2 FI 

6C 

20 

-85  5 

521 

POLYETHY  LENE 

2 C 

4h 

-453  .0325 

522 

POLYURETHANE  sINDER 

967H 

5 36C 

12N 

1400 

-91 C .0379 

523 

POLY ACRY  LAMIO  t 

3 C 

5h 

In 

10 

-1590  .0000 

524 

44 
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POLY  ACR  Y LQNIT  kILE 

3 h 

3C 

In 

74  . 03 VS 

525 

PuLYAMlN L COMPOSITE 

30C  1 0SH 

2 0). 

-316  .0342 

S2o 

PGLYBUTA  DIENE  (SEE  oUTAR  E2  > 

6H 

4C 

55  .0304 

527 

POLYBUTADIENE  ACk  A (THIGNCL)  999h  671C 

1 9N 

160 

-160  .0330 

52o 

POLYTETR  AFLUO  kOtTkYLENE 

2C 

4 F 

- 1952  • 08  24 

529 

POLYETHY  LENF.H  YDhAtlNE  (PEh) 

2 C 

6H 

2n 

4 . OGGG 

53  0 

POL YPkOP  YLEN  vLYCOL 

12H 

6C 

20 

-855 

531 

POLYBUTADIENE  ACRYLIC  ACID  1C4k 

70C 

40 

-«4  .0337 

532 

POTASSIUk  PERCHLORATE  ( X CL  04 ) 

1 CL 

In 

40 

-742  .0910 

532 

POT  ASS 1U  M PERCHLORATE  (KCL04) 

1 CL 

IK 

40 

-742  .0910 

574 

POTASSIUk  IODATE 

30 

IN 

11 

-568  . 14G5 

535 

POTASSIUM  SUL  PATE 

40 

IS  • 

2K 

-1966  .0962 

536 

POTASSIUM 

IK 

0 .0500 

537 

POTASSIUM  AMALGAM 

Ik. 

1 MvJ 

-0 

-0 

-o 

-48  . uCCC 

63b 

POTASSIUM  AZIDE 

u 

IN 

-5  .0736 

539 

POTASSIUM  CARBONATE 

1C 

30 

2N 

-1495  .0877 

540 

POTASSIUM  CHLORIDE 

1CL 

IK 

-1397  .0717 

541 

POTASSIUM.  PER  AlC  YNANIDE 

3K 

iFe 

6C 

6N 

-r 

-126  .0664 

542 

POTASSIUM  HYO  RIDE 

IN 

1 H 

-0 

-0 

-6 

-339  .0516 

543 

POTASSIUM  NITRATE 

IN 

30 

In 

-1167  .0767 

644 

POTASSIUM  IODATE  (K103) 

u 

11 

30 

-568  .1405 

545 

POTASSIUM  PER  CHIDE 

2n 

20 

-G 

-0 

-0 

-1071  .0000 

546 

POTASSIUM  SUL  PATE 

40 

IS 

2K 

-1966  .0962 

547 

POTASSIUM  SUL  P1DE 

2N 

IS 

-0 

-0 

-907  .0652 

54b 

PROPANE 

8h 

3C 

-591 

54v 

PROPYL  NITRATE 

7 C 

3C 

IN 

3C 

-514  4.298 

550 

PROPANE!  1,1-0  IhiTRO)  (L1UUI0) 

3 C 

6h 

2N 

4 0 

-297  .0455 

551 

PKOPANK  1,1-D  IN1TR0)  (GASEOUS) 

3C 

6H 

2n 

40 

- It  6 .0000 

552 

PROPANE!  1,1,1  -TkIMTRO) 

3C 

5rt 

3 N 

00 

-157  .0002 

553 

PROPANE ( 1,1,1 ,3-TETkAN1T kG> 

U. 

4h 

4 N 

no 

-172  .GGUO 

554 

PROPANE  ( 1,2-B  IS  D I F L UORO  All  IN  0 ) 

JC 

f,h 

4 F 

2H 

-34  9 . JGu'O 

555 

PR  OP  AN E ( 1,2-B  IS  DIF LUOROAKINO) 

;c 

6 H 

* F 

2N 

-294  .0000 

556 

PROP  AhE  ( 1,3-D  1MTR0) 

TC 

OH 

in 

4 r 

-399  .04  69 

557 

PROPANE ( 2-NIT RO) 

3C 

7H 

IN 

20 

-491  .0355 

55b 

PROP  Akfc  ( ,.,2-D  INITRO) 

3 C 

OH 

2 N 

40 

-33?  .0469 

559 

PROPYLENE  POLY  uLYCUL  DIACRYL 

102h 

SAC 

190 

-1000  .0379 

56C 

PROPANE ( 1-NIT  kO) 

JC 

7h 

In 

20 

-442  .0352 

561 

P-GUINON  EOIOX  1ME 

4i  4 C 

4 J4H 

1 4 S 0 

145N 

-700  .0505 

562 

RDX(HEXAEYOROTRIMTkOTRlAZINE) 

3 C 

OH 

ON 

60 

66  . C6  56 

563 

PLD  FUMING  NITRIC  ACID  (14N022151H 

1 OSN 

4 7 1 D 

-654  .0567 

564 

RED  FUMING  NITRIC  ACID  ( ZULU t ) 

85H 

1 14N 

3140 

-544  .0567 

565 

PED  PUKING  NITRIC  ACID  (Un02)151H 

105N 

4710 

-654  .0567 

5 6b 

R P-1 

2ti 

1C 

-1340  . C2o9 

567 

RESORCIN  CL 

6 H 

oc 

2 0 

-764  . u4o3 

56b 

RObl.DIUMi 

1 RB 

-0 

' - ij 

-C 

-n 

C .0553 

569 

SEA  hATEn 

99bh 

4990 

J N A 

1“& 

s C L 

-6792  .0361 

5?0 

SILICON  LI  OX  I UE  (PUhE  MiOJkVt) 

20 

IS. 

-641?  .0759 

571 

SILICON  TETRACHLORIDE 

1SI 

4 C L 

-U 

-0 

_ n 

-901  .0535 

572 

SILICON  (PURE.  CRYSTALINS) 

1 S I 

0 .0874 

573 

SILVER  luDATE 

JO 

11 

1 AC 

-149  .2010 

574 

SILVER  ICDATE 

30 

11 

1 AG 

-149  .2010 

575 

SILVER  KETAL 

1 AG 

n .2791 

57o 

SILVER  N IT  RAT  t 

1 AG 

IN 

20 

-0 

- n 

-1 7 J .1571 

577 

'S->'6' 

JoSC 

0 E 4 H 

2950 

-1145  .0523 

578 

'S-02' 

1 4 1 C 

7 0 4 H 

2520 

1 4 1 N 

->.397  .0542 

579 

SODIUM  A LUNIN  D«  A h IDE 

1 AL 

8H 

4 N 

INA 

-1520  .0000 

58  0 

SODIUM  A Z1DE 

3N 

INa 

o G .0668 

581 

SODIUM  BARBITURATE 

3 H 

4C 

2 N 

30 

INA 

-1393  .0793 

582 

SODIUM  oOROHY  uRlDE 

IB 

4H 

INA 

-1206  .0390 

583 

SODIUM,  CARBONATE 

1 C 

30 

2NA 

-821  .0914 

584 

SODIUM  C FLORA Tt 

1NA 

ICl 

3 0 

-C 

• r 

-805  .0699 

585 

SODIUM  C HLORI  DE 

InA 

ICl 

-1672  .0762 

58  b 

sodium  fluoride 

IP 

IN* 

-2245  .1008 

587 

SODIUM  k YDRlD t 

1 w A 

1 H 

-0 

-0 

-571  . u5  04 

586 

SODIUM  ICDATE  (AU  - DHSKIU6) 

N A 1 

11 

02 

-535  .1544 

589 

SODIUM  P ERCHL  CkATE 

40 

In* 

ICL 

-75* 

59U 

45 
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SODIUM  P i KO  X I b£ 

2NA 

20 

-C 

-0 

-n 

-1546  .1011 

591 

SODIUM  P bTASS  IUi'i  Liu  ALLOY 

JR 

1 N M 

-u 

-U 

-43  .COCO 

592 

SODIUM  T hlOCY  *NA  T t 

1 NA 

1C 

1 N 

IS 

-P 

-515  .0000 

692 

Sodium  oure  ckystaline) 

1 1t  A 

0 . 03  5C 

594 

SPAN  C 5 

30H 

ISC 

1 0 

-63  5 .0540 

595 

ST  V R E mi  £ 

Dm 

sc 

30  .0366 

596 

SUCCINIC  ACID 

«C 

6H 

NO 

-1900  .0567 

597 

SULFUR 

IS 

0 .0747 

598 

SULFUR  D 10XID  £ 

IS 

20 

-0 

-0 

_ n 

-1106  .10s1 

599 

SULFUR  T KIOXI  LE 

1 S 

30 

-c 

-0 

_ r. 

-1207  .0993 

oOC 

SULFUR  < FONOC  LllilC) 

IS 

-C 

-c 

-0 

_ n 

1 .0706 

601 

SULFURIC  ACID 

2h 

IS 

40 

-0 

-n 

-1977  .0602 

602 

SULPHUR 

IS 

0 .0720 

603 

TETRAHYD  hONAP  THALENc 

12H 

IOC 

-13  .0354 

6Q<* 

TbTBACYA  NUCYC  LOPkuPANEl  , 1 .2,  i 

’C 

2 H 

**  N 

1 CO  7 .0495 

605 

TeTRACYAnOETH  YLe  Nt 

6C 

4H 

1174  .0469 

oOo 

TETRAcThYLPEN  TAMINEFERCHLuRATt 

28h 

SC 

5N 

200 

* Cl 

-545  .0470 

607 

TETftAtTH YL  LE  AD 

2 OH 

SC 

1 P« 

161  .0599 

608 

TETRAFLU tROHY DRAZ1NE  (N2F4) 

4 F 

2 It 

-19  .0000 

609 

TfcTRAKlS  AMLY  ACRYLATE  (TAA) 

SC 

1 oh 

8 F 

4 N 

20 

-396  .0520 

6 1 0 

Tt TRAKl 5 DI FLU CROAhl NOMETHANE 

1C 

&F 

4 N 

1?  .0621 

611 

TETRAKIS  .1  FLU  ORO  AH  IN  OME  THANE 

1C 

SF 

4n 

12  .COCO 

612 

TtTRARIS (DIFL UOkOAMINO)  (THF) 

4 C 

48 

OF 

4 N 

10 

-266  .0579 

613 

TETRAKIs  (HYDP AZI NL ) b t C Ab  OH  AN  E 

1 nb 

2 OH 

k N 

-10  .OOCC 

e14 

TETRAMET  RYL  L tAU 

1 2H 

4C 

IP  fi 

202  .0721 

615 

TETRAMET  HYLAM 1NU TR I o Oft OH Y D R I D E 

4 1 

20H 

3b 

IN 

-293  .0000 

6 1 6 

TETRAMET fYLTSICYClOuECYLENEOIa 

14C 

26H 

2 N 

-U5  .0352 

617 

TETRArtlTftU  DI f LuOnOc THAN E 

2C 

2F 

4 N 

SC 

-3oP  .0000 

616 

TETRAMT  hO  ME  IRANc 

1C 

4n 

80 

45  .0593 

6 1 V 

TE TRAN  IT  mOETH  YLE NtD I AMINE 

2c 

4H 

tN 

iso 

1?$  .0632 

o2  0 

TtTRAMT  ROMET  MAN  L 

ic 

4n 

o U 

45  .0592 

821 

TETRAlOL t 

1C 

2H 

4 N 
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1 o2  o 

OXSOl.  11 

S 9 6 h 4 4 0 

KS.t 

6 5 C L 
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OaSOL  I 

3 7 Oh  A 1 Co 

1 0 U it 

7 0 C L 

- ) Co  1 
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1 o3  0 
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2uR 

46 

1 l-3  1 

HYDROotN  bRoN  IDE  (GAS) 

'n  Ui 
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1 o3  2 

OTTO  IX 

2 7 4 1 526H 

3-CcO 
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. OA  S 2 
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DECAOORAI.E  A 

1<1j  UH 

i N 

-im 

1 o3  A 

DECAEOkANE  b 

2CS  ICt 

1 Cm 

-62  A 

1 o35 

RITETKAZ  ILE 

2 C 3n 

lm  rl 
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1 L 3 6 

NoLYbOtNLM  TRiOaIOE 

1 N 0 j 0 

- 1253 

1 o3  7 

bkO.'tOTRI FLUOR  oHETHAnE 

U 1b 

1.  OF 

— 1 7 0 1 

1 o3o 

T N E N 6 

3 C No 

JM 

7 V 

-6  3 

. 0 7 Ei  A 

1 o3  y 

PTNEV 

SC  130 

Ch 

6N 

-137 

.3675 

1 CAL 

E'EMOTRI  EUROXAnE  (E1F) 

tc  60 

It 
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• 06  c 6 

ItaAl 

AhMOMOM  TRIM  TROlWlOAZOL  E ( AT  l 3C  60 

» M 

SN 

-16 

• 36  c 2 
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THICKOL  TP-H-6314  (NO  FE) 

76CH  s52o 

23  K 

IPS'  o2  CL  ’eS 

-735 

. o5  49 

KA3 

ANNO  N i ON  bIFL OUkIDE (AF+L  10 

me;  5 Ei  Ip. 

. E 
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* <.*% 

E.£  04  (NT  0 N1S  o) 

?N  AO 
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1 .AS 
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2.  C 24;i 
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-3  V A 
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1 .Ac. 
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n 

A2H 
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1 oA  7 

FI  ?-4 ? (SIC  t) 

1 3C  So 
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- 13  v P 
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1 LAo 

SYLoAkl) 

1 S I 1o 

t M 

£ C 

- 1Cer. 

1 .4  9 

V1TC0  F 1 7-47  (JOS) 

1 H SO 
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to 

5 

.0336 

1 o5  £ 
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01  ISO  LYANATE  (CUD 

SSL 

72h 

C N 

20 

-254  .0315 

1 j5  3 

ISOoUTYLi  ENZE  r,E 

1 ~L 

1 in 

-124  , u 3 1 3 

1 L 5 <* 

N « M D 1 1»  i 1 R 0 i 0 ► E N T A F t T H Y L E N E T E T 

5C 

1 OH 

t.N 

20 

lb  9 . 2545 

1 b5  6 

RANINE 

r 

1 u5o 

HYDRAZINE  DibCRANE  (JOS) 

2u 

K'r, 

2N 

-5u2  .3342 

1 u5  7 

HTPO/OUK  xTIVE  (JOS) 

c 3 6 C 

9 7o  rt 

3l. 

130 

-49  2 .33  29 

1 u5o 

TRINITROETHYLCHIHOChAbONATE 

9 0 

Eh 

1 2N 

2c.  0 

-2  5 r • jo  64 

1 bS  y 

SHELL  EfCrt  ol 5 

jit 

c4n 

«0 

-327  . 34  -.9 

1 u6U 

ALUMINUM  TRJOX1DE  ThIHYDKATE 

?AL 

to 

OH 

- 3^3  4 , Jo  74 

1 w6 1 

LITHIUM  FEROX  IDE 

2 l I 

2o 

-333’  . j3  3 3 

1 u6  2 

AMMONIUM  5-N1  IKAMNOTETR  AZULE 

U 

71. 

3 ri 

2n 

22  2 » u 5 3 1 

1 u6  J 

A TETkAzCLE  P uLYURETHANE 

«99h 
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1230 

Ch  XL 

-39  ? .3413 

UAn 

R45 

c6 1 C 

yySh 

IN 

90 

4 fl  . C 3 2 5 

1 b6  5 

NLA  (11) 

34  SC 

y 4 6h 

1 5 y 0 

— 1 Ot  o .3276 

1 b6  o 

ZL  320 

cC  6C 

v o9H 

2 2 N 

9 30 

-579  .6373 

1 u6  7 
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1 2L 

1 »H 

2N 

20 

-5u1  .6334 

1 jbi 

ERL051Q 

15C 

1 ->H 

IN 

40 

- 1 o 7 , 3433 

1 b6y 

CASTOR  OIL 

6 ? L 

1 IlH 

y o 
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1 b 7 u 

AN 

4 H 

2n 

su 

,66  2 3 

■»b’1 

ADHO 

un 

3 16H 

21  oN 

jy  3C 

-1272  .26c3 

1 b 7 t 

NC 

u 

4h 

4 N 

20  . 

-212  • Jb  c j 

1u7s 

TAGN 
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9h 

7 N 

30 

-64  .05 69 

1b7u 

GN 

1C 

6h 

4 N 

20 
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1w7s 

GLYOXAL  HYDRA  ilNE  POLYMER 

2 C 

2 H 

2N 

27"  . U3  32 

1 u7o 

DHTT 

4 C 

1 Oh 

1 6 H 

647  .6572 

1u77 

HEXAN1TK  CUEftZ  tNE 

6 C 

6N 

120 

12  .6717 

167o 

MANGANESE 

1 MN 

0 .2599 

1079 

PEG4000  (CARBtwAX) 

2C 

4H 

10 

-1056  .0435 

1080 

BITRETSA  ZOLE 

2 C 

2H 

9N 

725 

1081 

CHROMIUM  CARBONYL  JAX76/J168 

ICR 

6C 

CO 

-1170 

1082 

MOIYBDENLM  CARBONYL  JAX7E/5166 

1M0 

6C 

60 

-669 

1083 

TUNGSTEN  CARBONYL  JAX78/5168 

1« 

6 C 

60 

-64  5 

1084 

SODIUM  A 2IDE  -*TEFLOn  (STOILH) 

1C 

6N 

2 F 

2NA 

-478 

1085 

CATOCENE 

27C 

32h 

2 FF 

115  .0414 

1086 

GE-RTV-6 15/A+b 

2 C 

6H 

1 SI 

10 

-1888  .0372 

1087 

HTPb  (AFAPL  VARIANT) 

654C 

988H 

cN 

200 

122  .0332 

1088 

CHROMIUM  OCTOATE 

ICR 

24C 

4 3 H 

60 

-506  .0361 

1089 

M?8C 

160C 

255H 

10C0 

-1297  .0433 

1090 

HM*I 

5 C 

12H 

20 

2N 

-717  .0375 

1091 

HC434 

66  9C 

VV9H 

IN 

130 

-16  .0327 

109  2 

MNA 

7 C 

8H 

2N 

20 

-49  .0433 

1093 

MAR  638 

4 0C 

4 6H 

CO 

-696  .0419 

109- 

PCPC240 

36  4 C 

Vy9H 

2170 

-1393  .0395 

1b95 

PCPOIOI 

564C 

9 VVH 

2170 

-1393  .0396 

1096 

PAPI 

22  4 C 

1 5 5h 

270 

27N 

-202  .0448 

1097 

P0LYME6  1000 

4 C 

6H 

10 

-874  .0355 

1096 

POLYMEG  2000 

4 C 

8H 

1 0 

-674  .0354 

1099 

POLYSTYR  ENE 

8 C 

8H 

106  .0379 

1100 

R-16 

624C 

9 V9H 

3740 

-1364  .0326 

1101 

TAT6 

6 C 

6N 

60 

6H 

-143  .0696 

1102 

R45M 

667C 

V99H 

50 

-30  .0433 

1103 

STABOXOL  P 

1 3 C 

1 Oh 

2N 

-41  .0379 

1104 

TE06N 

60 

12H 

60 

2N 

-645  .0460 

1105 

THERMAX 

1C 

0 • C7  04 

1106 

LACQUER  NITROCELLULOSE 

600C 

7 74h 

226N 

9520 

-663  .0599 

1107 

HYLENt  •>  (HF  ESTIMATED) 

15C 

2 2H 

2N 

20 

-150  < 03o6 

1 1 0o 

C5H1 ONI  4 Co  ( k t E D ) 

5 C 

1 0H 

1 4 N 

80 

t479 

1109 

GLYCIDYL  AZ1D  E 

3C 

7h 

10 

3N 

564  .0470 

1110 

LEAD  STYPHNATE 

1PB  6 C 

2H 

3N  90 

-205  .1091 

1111 

CALCIUM  CHROMATE 

1CA  ICR  40 

-2111  .1044 

1112 

BARIUM  CHROMATE 

1 B A ICR  40 

-1347  .1625 

1113 
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Appendix  G 

PEP  AUXILIARY  PROGRAM 


In  theory,  the  thermodynamic  data  for  the  combustion  species  could  be  put  onto  a magnetic 
tape  and  the  SEARCH  subroutine  of  the  propellant  program  made  to  digest  this  information.  In 
practice,  it  was  decided  to  '‘predigest”  this  information  with  an  auxiliary  program,  which  is  called 
PEPAUX.  There  arc  several  reasons  for  this  other  than  the  fact  that  binary  father  than  a BCD  tape 
may  be  produced.  These  will  become  apparent  as  the  description  progresses. 

PEPAUX  consists  of  a somewhat  small  program  deck  followed  by  two  sets  of  input  cards.  The 
first  set  contains  Holerith  information  and  is  somewhat  permanent.  Since  this  first  may  be  considered 
part  of  the  program  deck,  it  will  not  be  described  in  detail  except  to  note  that  at  present  it  contains 
74  cards  and  that  the  first  47,  which  contain  element  names,  may  be  permuted  in  any  order. 
However,  the  order  determines  the  precedence  of  the  element  in  the  molecular  names.  Hence,  if  H 
precedes  C.  methane  will  be  denoted  H4C;  otherwise  it  will  be  denoted  CH4.  As  can  be  suspected 
from  this,  PEPAUX  generates  automatically  the  Holerith  names  of  all  combustion  species. 

The  second  and  main  part  of  the  input  to  PEPAUX  is  the  thermodynamic  data  for  the 

combustion  species.  This  contains  three  card  sets  for  as  many  species  as  desired.  The  first  card  is  a 

species  identification  card,  and  the  second  two  contain. the  data  itself.  The  number  of  cards  in  this 
group  is  3n  + 1,  where  n is  the  number  of  species,  An  e'xtra,  blank  card  is  placed  at  the  end  to 
signal  the  end  of  the  input  deck. 

The  identification  card  contains  the  molecular  composition  of  the  pertinent  species  and  phase. 
The  composition  consists  of  as  many  information  pairs  as  there  are  elements  in  the  species.  The 
information  pairs  begin  in  column  48  and  repeat  the  format  (A2,12).  The  first  part  is  the  atomic 
symbol  commonly  used  by  chemists;  the  second  is  the  number  of  such  atoms  in  the  molecules.  For 
example,  AL1CL3  designates  A 1 C 1 3 . The  phase  of  the  species  also  appears  on  this  card  in 
column  3b.  Other  information  on  this  card,  such  as  name  arid  molecular  weight,  is  not  processed. 

The  two  data  cards  which  follow  have  a format  compatible  with  the  JANNAF  thermochemical 
data  in  floating  point  form  as  follows: 

FIRST  CARD  Lj(end  in  13)  L7(end  in  26)  l.3(end  in  39)  L4(end  in  52) 

SECOND  CARD  Lg(end  in  13)  Lg(end  in  26)  L^(end  in  39)  Lg(end  in  52) 

where 

■j 

Cp  = 1 , + L^©  + L302  + l403  + Ls0‘2 

is  the  integration  constant  for  total  enthalpy  (kcal/mole) 

L7  is  the  integration  constant  for  entropy  (cal/mole/°K) 

© is  T/1000 

(Lg  is  the  heat  of  formation  and  is  not  used.) 
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More  thermodynamic  data  is  permitted  to  follow  the  blank  card.  Another  format  is  used  for 
the  second  group  of  thermodynamic  data,  which  is  described  in  both  NAVWEPS  7043  and 
NAVWEPS7609.  It  will  not  be  repeated  here,  especially  since  the  JANAF  fits  have  become  generally 
accepted.  Some  remarks  on  PEPAUX  operation  follow. 

PEPAUX  not  only  generates  Holerith  names  for  each  combustion  species  but  also  adds  the 
symbol  $ when  the  species  is  solid  and  the  symbol  * when  it  is  liquid.  Plus  and  minus  signs  are  added 
for  ionic  species.  However,  only  the  leading  six  symbols  are  available  on  the  output  tape  for  the 
equilibrium  program. 

PEPAUX  reorders  the  species  so  that  gases  come  first,  and  condensed  species  follow  on  the 
output  tape.  This  saves  computing  time  when  the  equilibrium  program  utilizes  this  tape. 

PEPAUX  automatically  deletes  and  edits.  Species  which  are  repeated  are  deleted  and  noted  in 
the  output.  This  provides  a method  of  updating  the  thermo  data  files.  Newer  data  is  simply  placed  in 
front.  This  way,  older  data  in  back  is  deleted.  If  the  input  deck  becomes  too  large,  the  redundant 
data  can  easily  be  removed  by  studying  the  previous  PEPAUX  output. 

Logical  tape  12  is  written  by  PEPAUX  and  the  plastic  ring  is  removed.  It  is  used  by  the 
equilibrium  program  until  an  updating  effort  is  required  of  PEPAUX. 

If  one  is  using  thermodynamic  data  supplied  by  NWC,  the  following  peculiarities  should  be 
noted.  The  symbols  U1,U2,  U3,  U4  and  US  are  fictional  elements  that  have  the  same  data  (except 
atomic  number  internally)  as  Be,  B,  Mg,  Ai,  and  C.  Since  only  elementary  species  appear,  this  allows 
one  to  consider  problems  in  which  these  elements  do  net  burn.  If  one  wants  to  know  what  happens 
if  10%  of  his  aluminum  does  not  burn,  he  inputs  90%  of  his  aluminum  as  A)  and  10%  as  U4. 

The  JANAF  data  was  fit  by  Howard  Shomate  at  NWC  and  supplied  to  Harold  Prophet  at  Dow 
Chemical  for  further  distribution.  Shomate  was  not  always  satisfied  with  the  fit  and  sometimes 
spliced  two  fits  (over  different  temperature  regimes)  together.  In  these  cases  three  groups  of  three 
cards  appear  for  a single  gaseous  species.  The  first  is  the  single  fit  and  is  ignored  by  PEPAUX,  which 
picks  up  the  better  fit  represented  by  the  two  regimes  on  the  following  six  cards. 

The  PEPAUX  program  and  input  follow. 
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-ASG.AX  CRU1  SE*P£PAUX//2 1734 

-USE  12.*CRUISE*PEPAUX 

-ASG*T  A.F2///256 

-USE  28  * A 

-ASG.T  B.F2///256 

-USE  29*8 

-FOR* IS  P&PAUX.PEPAUX/A 

COMMON  /P AUX/  .ISdOll*  HI(101*2)»  IN(lOl).  HK(50*2).  KN(50>.  JN ( 7 ) 
C UNI  VAC  1108  VERSION*  FORTRAN  IV 

1»JE<7)*  OUT (221*  SP£C<5>»  ISIS)*  PARA ( 20 ) *F’EDUND( 2 *7777 ) * JO*  NJD 


INTEGER  S 

1 FORMAT  (1413.  12X*  II.  15X.  Ill  0070 

3 FORMAT  (12*  2A1*  11)  0090 

* FORMAT  (2Al.ll)  OlOO 

3 FORMAT  (Al.Ul  0110 

8 FORMAT  (18 « 2A6*  16) 

9 FORMAT  (1H  315*  2X*  A6 ) 0150 


554  FORMAT  ( 7 ( F3.0 . IX * A6 ) • 12/  E12.0*F6.0*E12.0) 


10  FORMAT  (15H0REDUNDANCY  IN  2A6) 

REWIND  28 

REWIND  29 
DO  11  I ■ 1.97 

11  READ  ( 5*3 ) IE ( I ) * HKI.ll*  HI  1 1 *2  ) • IN  ( I ) 0190 

DO  12  I « 1.22  0200 

12  READ  < S*4)HK( I *1 ) * HK<!*2)*  KN(  I ) 0210 

DO  13  I ■ 1*5  0220 

13  READ  <5*5)SPEC(1)*  IS ( I I 0230 


CALL  BUFFER  ( 1*0*0. 0.»0*0i0. ) 

HI  ( 98* 1 ) * SPEC ( 4 ) 

HI  ( 99* 1 ) « SPEC ( 5 ) 

H I ( 96 • 2 ) • HK(l.l) 

HI  I 99*2 ) ■ HK (1*1) 

CALL  SHOJAN 
CALL  NONJAN 
L1M  « JD  + NJD 

00  110  K • 1.2  0730 

REWIND  28 
REWIND  29 

DO  108  I ■ 1.LIM  0750 

READ  (29*8)  KHASE*  REDUNDll*!)*  REDUNDI 2 * I ) *S 

READ  (23)  ( J J ( L I * J£(L).  L ■ 1.7) 

102  READ  128)  (PARA(L)»  L « 1*9) 

103  READ  (28)  ( PARA (LI*  L » 10*18) 

WRITE  (6*6666)  KHA5E*  REDUNDll*!)*  REDUND (2*11*  <JN(L)»  JE(L). 


1 L • 1*71*  (PARA(L)*  L ■ 1*18). S 
6666  FORMAT  (15*  2A6*  9X.  1413/  9E 13.4/9E 13.4 » 15 ) 

IF  ( I *LE.  JD)  GO  TO  107 
IF  IK  *E0*  2 ) GO  TO  107 

104  LI  I • 1-1  0820 

IF  ( JE ( 1 ! *E0*  55)  GO  TO  107 

DO  105  J « 1 f L 1 1 0830 

IF  I REDUNDI 1*J)  - REDUNDll*!))  105*106*105  0840 

106  IF  (RE0UND(2.J)  - REDUND (2*1))  105.109*105  0850 

105  CONTINUE  0860 

107  GO  TO  (50.55).  K 0870 

50  IF  (KHASE  - II  108*51*108  0880 

51  CALL  BUFFER  ( 2 *KHASE*S .REDUNDI 1* I ) * JN*  JE*  PARA) 

GO  TO  108  0950 

55  IF  ( KHASE-1 ) 108*108*51  0960 

109  WRITE  (6*10 ) REDUNDI 1 • 1 > • REDUND(2*I)  0970 

108  CONTINUE  0980 

110  CON i 'NUE  0990 

KHASE  ■ -l 


CALL  BUFFER  ( 3 .KHASE iS .REDUND ( 1*1)*  JN*  JE*  PARA) 
CALL  KINDAT 
END  FILE  12 
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REWIND  12 
WRITE  ( 6*6420 ) 

6420  FORMAT  (29H1  PEPAUX  WORKED  SUCCESSFULLY*) 

CALL  EXIT 
END 

-FOR* IS  SHOJAN  * SHOJAN/ A 

SUBROUTINE  SHOJAN 

C . . . * SUBROUTINE  TO  OIGEST  JANAF  DATA  AS  FITTED  BY  HOWARD  SMOMATE, 

COMMON  /PAUX/  IE(lOl).  HHlOl.2)*  IN(lOl)*  HKI50.2)*  KN(50).  JN(?) 
1*JE(7).  OUT  122)*  SPEC  < 5 > * 1 S ( 5 ) • PARAI 20) *REDUN0<2*777?) * JD*  NJD 
DIMENSION  CRAZE ( 3 ) 

DATA  ( CRAZE ( I ) » I ■ 1*3)/  1HC*  1HG*  1HL  / 

DIMENSION  Heels)*  ELM(6*2) * N A ( 6 ) 

INTEGER  S*$A 

1 FORMAT  ( 5A6*  SX.  Al.  11X*  6<2A1*  1 2 ) • IX*  16) 

-2  FORMAT  (IS*  12A1*  16) 

3 FORMAT  (4(F13.0)«  F3.0*  3X*  FS.O*  SX*  13) 

4 FORMAT  (7H0MIX  UP  219) 

JD  ■ 0 ; 

-INC  7 » • 0 

101  READ  (5*1)  (HOL  ( I I • 1 ■ 1 *5  ) • PHASE*  < (ELMI  I *J)  *J»1  *2)  *MA(  I ) • I •>  1 • 6 ) *S 

102  IFIRST  - 0 

103  DO  11  I ■ 1.18 

11  OUT! I)  > SPEC ( 1 ) 

IF  (NA<1I  »EQ»  0)  RETURN 
C * ...  IF  NO  ATOM  COUNT.  SHOJAN  IS  F1NIISHED. 


JD  ■ JO  + 1 
INDEX  ■ 1 
DO  9 I - 1*7 
JN Cl)  ■ 0. 

9 JEII  ) ■ 0. 

DO  17  I - 1.99 
DO  16  J ■ 1*6 

C . . . . COMPARE  HOLER  I TH  WITH  PERIODIC  TABLE* 
IF  ( HI  I 1 *1 1 .NE.  ELMtJ.l))  00  TO  16 
K ■ NA(J) 

IF  < I .GE.  98)  GO  TO  12 
IF  <H[(;.2)  .NE.  ELMf J»2 ) ) GO  TO  16 
OUT! INDEX)  > HI  II. 1) 

OUT! INDEX+1)  ■ HI  I 1*2) 

INDEX  ■ INDEX  ♦ INI  I) 

OUT! INDEX)  » HKIK.1) 

OUT! INDEX+1)  ■ HKIK.2) 

INDEX  - INDEX  ♦ KNU) 


GO  TO  17 

C . • . • ATTACH  CHARGE  APPENDAGES. 

12  DO  13  L • 1*K 

OUT!  INDEX)  ■ ELMI Jill 

13  INDEX  - INDEX  * 1 
JNUl  - K 

JElJl  • 0 

IF  I I .EO.  98)  JNI J)  ■ -K 
GO  TO  17 

16  CONTINUE 

17  CONTINUE 

IF  IJEtl)  .NE.  0)  GO  TO  18 
OUT!  2)  *>  OUT  1 1 ) 

OUT  I 1 » . 1HE 

C * . . • ATTACH  PHASE  IDENTIFICATION  APPENDAGE. 


IS  KHASE  - 2 

IF 

(PHASE 

.EO. 

CRAZE! 1) 1 

OUT! INDEX) 

• SPEC ( 2) 

IF 

(PHASE 

.EO. 

CRAZE (21) 

KHASE  • 1 

IF 

(PHASE 

.EO. 

CRAZE ( 3 ) ) 

OUT ( INOEX I 

« SPEC! 3) 

WRITE  (29*2)  KHASE*  I OUT  I 1 ) . I > 1*12).  S 


1040 

1030 
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WRITE  ( 20  ) (JNIL>»  JE  < L ) * L ■ 1.7) 

87  READ  (5.31  A.B.OD.TL.TU.SA 

IF  (S  ,NE.  SA)  WRITE  (6. A)  S.SA 
READ  (5.3)  E.F.G.H.TL.TU.SA 
IF  (S  «NE.  SA)  WRITE  (6*4)  S.SA 

READ  (5.1)  ( HQL ( I ) * 1 « 1 • 5 ) » PHASE.  ( ( ELM( |.J)*J»l*2)»NA(l).l*l»6)»S 

IF  (S  .NE,  SA)  GO  TO  89 

IF  (PHASE  .HE.  CRAZE ( 2 ) ) GO  TO  89 

IF  ( IFIRST  .NE.  0)  GO  TO  88 

1FIRST  > 1 

GO  TO  87 

88  WRITE  (28)  A.B.C.D.E.F.G.TL.TU 
READ  (5.3)  A.B.OD.TL.TU.SA 

IF  (S  .HE.  SA)  WRITE  (6*4)  S.SA 
READ  (5.3)  E.F.G.H.TL.TU.SA 
IF  (S  .NE.  SA)  WRITE  (6.4)  S.SA 
WRITE  (28)  A.B.C.D.E.F.G.TL.TU 
GO  TO  101 

89  WRITE  (28)  A.B.C.D.E.F.G.TL.TU 
WRITE  (28)  A.B.C.D.E.F.G.TL.TU 
GO  TO  102 

END 

-FOR. IS  CONVER .CONVER/A 

SUBROUTINE  CONVER  (PARA.  A.B.C.D.E.F.G.TL.TU) 

C . . . . SUBROUTINE  TO  CONVERT  OLD  PARAMETRIC  FORMS  TO  NEW  PARAMETRIC  FORMS. 
DIMENSION  PARA(20) 

A ■ PARA ( 3 ) 

B ■ PAR A ( 41*1000. 

C ■ 0. 

D ■ 0. 

E ■ PARA  I 5 ) /1 00 0000. 

F ■ PARA(l)  + PARAI2)  - PARAl 3 )*3000.  - PARAI4)*4SOOOOO. 

1 + PARAl 5 1/3000. 


F ■ F / 1000, 

G ■ PARA(6)  - PARAO)*AL0G(3000,  ) - PARA(4>*3000. 

1 + PARAl  5 ) /45 00000,  + ALOGMOOO.) 

TL  « PARAl 7) 

TU  ■ PARA( 8 I 

RETURN 

END 

-FOR. IS  NON JAN. NON JAN/ A 

SUBROUTINE  NONJAN 

C . . . . THIS  SUBROUTINE  PROCESSES  NON  JANAF  TYPE  DATA  ACCORDING  TO  DOW 
C ....  AND  OLD  NOTS  (NAVWEPS  7043)  FORMATS. 

COMMON  /P  AUX/  IE(lOl).  HIH01.2).  IN(lOl).  HKI50.2).  KN(50).  JN  ( 7 ) 
1.JEI7).  OUT ( 22 ) . SPEC  < S ) * IS(5).  PARA ( 20 ) .REDUND < 2 .7777 ) . JD.  NJD 
DATA  ELECT/  6HEEEEEE  / 

1 FORMAT  (1413.  12X.  II.  15X.  ID 

2 FORMAT  (18.  12A1.  16) 

6 FORMAT  (4E13.0) 

7 FORMAT  (6E9.6.2F6.0.I1) 

NJD  - 0 

DO  99  LIM  • 1.7777 
DO  98  I • 1.18 
98  OUT! 1 1 • SPEC ( 1 ) 

READ  (S.D(JNII).  JEIII.  I ■ 1*7).  LEVEL .KHA5E 
IF  ( JN < 1 ) .EO.  0)  GO  TO  100 
C ....  IF  NO  ATOM  COUNT. SKIP  OUT, 

NJD  ■ NJD  ♦ 1 

29  IF  IKHASE)  30,31.30 

30  READ  (5.6)  A.  B,  C.  D«  E*  F.  G 
TL  ■ 298. 

TU  ■ 6000. 

JAN  ■ 1 
GO  TO  32 

31  READ  (5.7) (PARAl I ) * I - 1.8) .KHASE. (PARAl I ) »I  • 9,16) 


0120 

0130 

0240 

0250 

0260 

0270 


0290 


0310 

0320 

0330 
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JAN  • 2 0340 

32  INDEX  - 1 

00  17  I • 1«97 


DO  16  J « 1*7 

KK  ■ J 

0370 

IF  (JN(JI)  14*17*14 

0380 

14  IF  I IE  1 I ) ~ J£( J) 1 16*15*16 

0390 

15  OUT (INDEX)  > HI (1*1) 

0400 

OUT ( INDEX* 1 ) ■ HI (1.2) 

0410 

INDEX  ■ INDEX  ♦ IN ( I ) 

0420 

K * JNIJI 

0430 

OUT (INDEX)  -HKIK'll 

0440 

OUT ( INDEX* 1 ) • HKIK.2) 

0450 

INDEX  ■ INDEX  * KN( K) 

0460 

GO  TO  17 

0470 

16  CONTINUE 

0480 

17  CONTINUE 

0490 

OUT! INDEX)  ■ SPEC(KHASE) 

0500 

index  - index  * isikhase) 

IF  (JElll  .NE.  0)  GO  TO  23 

IF  ( INDEX  .NE.  1)  GO  TO  18 

OUT (INDEX)  ■ ELECT 

0510 

18  W5  AbI( JN(1) ) 

0530 

IF  ( JN 1 1 ) ) 19*23*21 

0540 

19  DO  20  I ■ 1.IA8 

0550 

OUT (INDEX)  ■ SPEC ( 4 ) 

0560 

20  INDEX  > INDEX  * ISU) 

0570 

GO  TO  23 

0580 

21  DO  22  1 ■ l.IAB 

0590 

OUT (INDEX)  ■ SPEC ( 5 1 

0600 

22  INDEX  - INDEX  * IS(5) 

0610 

23  U * M 1 NO ( INDEX >6 *61 

0620 

IL  ■ 1 

IU  • IL  + 11  0630 

WRITE  (29*2)  KHASE*  < OUT < I) * I - SL*IU>*  NJD 
WRI  TE(  26 ) (JN(U*  JE(U*  L « 1*7) 

IF  (JAN  .EQ.  2)  CALL  CONVER  <PARA( l > *A*B*C*D*E.F;G*TL*TU) 

WRITE  <28)  A*B*C*D»E*F*G*TL*TU 

IF  (JAN  .EO.  2)  CALL  CONVER  <PARA<9) *A*B*C*D*E*F.G*TL*TU) 

WRITE  < 20 ) A*B*C*0*E*F*G*TL*TU 
99  CONTINUE 
100  RETURN 
END 

-FOR* IS  KINDAT.K1NDAT/A 

subroutine  kindat 

C . . . * THIS  SUBROUTINE  READS  IN  CHEMICAL  KINETIC  AND  COLLISION  CROSS 
C . . . . SECTION  DATA  FOR  MORE  ADVANCED  VERSIONS  OF  THE  THERMOCHEMICAL 
C . i . '.  PROGRAM. 

DIMENSION  PARA ( 20  ) 

REAL  JUMP 

554  FORMAT  ( 7 ( F3.0 * IX  * AS ) . 12/  E 12.0 *F6 .0*E1 2.0  I 
DO  209  I - 1*1000 

READ  (5*554)  (PARA(K) » K * 1* 14) *LBJ*BUMP* JUMP *HUMP 
IF  I LB J .NE.  1)  GO  TO  556 
BUMP  » -BUMP 

556  WRITE  (12)  (PARAIK)*  K ■ 1*14)  * BUMP*  HUMP*  JUMP 
IF  ( PAR A ( 1 ) .EO.  O.l  GO  TO  210 

209  CONTINUE 

210  CONTINUE 

DO  219  I * 1*1000 
READ  ( 5*555 ) VA*  VB*  VC 
WRITE  (12)  VA*  VB*  VC 
IF  (VA  .EO.  3.)  GO  TO  220 

219  CONTINUE 

220  CONTINUE 
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555 

-FOR. 


U 

21 

31 

41 


51 

99 

-XQT 
3LI2 
11NA2 
19K  1 
37RB2 
55CS2 
87FR2 
4BE2 
12MG2 
20CA2 
38SR2 
56BA2 
88RA2 
38  1 
13AL2 
21SC2 
39Y  1 
57UA2 
89AC2 
95U52 
96U12 
97U22 
98U32 
99U42 
22TI2 
23V  1 
24CR2 
23MN2 
26FE2 
27C02 
28NI2 
29CU2 
30ZN2 
31GA2 
32GE2 
40ZR2 
41CB2 
42N02 
43TC2 


FORMAT  ( FA • Q * A6»  E10.0I 

RETURN 

END 

IS  BUFFER »BUFFER/A 

subroutine  buffer  uw.  Phase,  s.  redund.  jn.je.  para) 

DIMENSION  BIN  ( 20 » 35  ) . JEI7).  JNI7).  PARAI18) 

IF  ( IW.EO,  II  GO  TO  11 
I-I  + l 

bini i*D  » phase 
GO  TO! 11*21*51).  IW 
REWIND  12 
I » 0 


GO  TO  99 
8IN( 1.2) 
BINI 1.3) 
DO  31  J 
K * 3 ♦ 


REDUND 
S 

1.7 
2# I J-l  I 


BIN  I I .X* 1 1 • JNIJ) 

BINI I.K+2)  - JEI J) 

DO  41  J ■ 1.18 
BINII.J+17)  • PARAlJ) 

IF  (PHASE  .IT.  0. ) GO  TO 
IF  I I *LT.  20)  GO  TO  99 
I ■ 0 

WRITE  <121  I (BINI J.K) • K ■ 1.35).  J - 1.20) 

RETURN 

END 


31 
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44RU2 
49RH2 
46PD2 
47AG2 
40CD2 
491N2 
50SN2 
58CE2 
59PR2 
60N02 
61PM2 
62SM2 
63EU2 
64GD2 
65TB2 
66DY2 
67H02 
68ER2 
69TU2 
70YB2 
7 1LU2 
72HF2 
73TA2 
74W  1 
79RE2 
760S2 
77IR2 
78PT2 
79AU2 
80HG3 
81TL2 
82PB2 
90TH2 
91PA2 
92U  X 
93NP2 
14SI2 
6C  1 
83BI2 
51SB2 
33AS2 
13P  1 
7N  X 
1H  X 
84P02 
52TE2 
34SE2 
16S  1 
80  X 
83AT2 
931  1 
39BR2 
X7CL2 
9F  1 
2HE2 
X0NE2 
X8AR2 
36KR2 
34XE2 
0 

2 X 

3 1 

4 X 
3 X 

6 X 

7 1 
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8 1 

9 1 
102 
112 
122 
132 
142 
152 
182 
172 
182 
192 
202 
212 
222 
0 

$1 

*1 
♦ 1 
-1 

ALUMINUM  (C)  26.982  AL  1 2-A 

« 79604 324E+ 1-«  74234602 E+l  . 12013784E+2-.41592804E+1  298  TO  0932  1265  2-8 

-•79464640E-1-. 24076 189E+1  .17672812E+2  .00000000  298  TO  0932  1265  2-C 

ALUMINUM  <C)  26.982  U4  1 2-0 

.79604320+01-. 74234596+01  . 12013784+02  -.41592802+01  298  TO  0932  1265  2-E 

-.79464629-01-. 24076188+01  .17672811+02  .00000000  298  TO  0932  1265  2-F 

ALUMINUM.  MONATOMIC  (0)  26.982  AL  1 4-A 

.48557431+01  . 17986383-00-. 84 569434-01  .12009095-01  298  TO  6000  1265  4-B 

.19636010-01  .76611834+02  .45244449+02  .77999999+02  298  TO  6000  1265  4-C 

ALUMINUM  MONOCHLORIDE  IG!  62.435  AL  1CL  1 6-A 

.88697597+01  . 1 7984430-00-. 16823909-0 1 .14357672-02  298  TO  6000  964  6-B 

-.57386842-01-. 14046012+02  .64827267+02-. 1 1200000+02  298  TO  6000  964  6-C 

ALUMINUM  I L I 26.982  AL  1 3-D 

.75878742+01  . 1 1669338-03-. 29586 136-04  .21870895-05  0932  TO  6000  1265  3-8 

,93873461-05-. 19028412-00  .17602579+02  .20720000+01  09J2  TO  6000  1265  3-C 

ALUMINUM  (L)  26.982  U4  1 3-D 

.75878742+01  . 1 1669338-03-. 295861 36-04  ,21870895-05  0932  TO  6000  1265  3-E 

.93873461-05-. 19028412-00  .17602579+02  .20720000+01  0932  TO  6000  l?65  3-F 

ALUMINUM.  MONATOMIC  (G)  26.982  U4  1 4-A 

,48557431+01  . 1 7986383-00-. 84 569434-0 1 .12009095-01  298  TO  6000  1265  4-B 

.19636010-01  .76611834+02  .45244449+0 2 ,77999999+02  298  TO  6000  1265  4-C 

ALUMINUM  CHLOROFLUORIDE  IG!  61.433  AL  1CL  IF  1 7-A 

.13469642+02  .37285351-00-, 10065834+00  .85780834-02  298  TO  6000  964  7-B 

-.18165674-00-. 12464722+03  .82534085+02-. 12000000+03  298  TO  6000  964  7-C 
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Appendix  H 

LISTING  OF  PEP  PROGRAM 


SUBPOUT  I NE  ADJUST 

COMMENT.  AO  JUST  S G«AM  ATOM  BALANCE  EPPORS  B V M 00  IE  Y IN  G THE  BASIS. 
CALLED  BY  OEFIOJ 

C COM  M ON  A (12,12),  KR(2P),  AMAT(10,12>,  JATI12),  ASPLC<12>,  IN,  IS, 
IE  IE  (10,6  I,  IE  ( IP  , * i , A LP  ( 12  ) , W?7,  N , BLOK(lC,l»>,  DH(IC),  RHO(IO), 
IISERKlt1).  WA  Tt ( 1 " ) , W 1 ( 6 ) , W<*3,  IG,  NP  , VNT(?ut),  W4T,  NAME,  SEP 
OCOMMON  /I8RIUM/  TLt2cP,2),  TU(20C,2),  W3I20P),  VNU < 200 , U ) , CiA, 
1TAU,  H(2L0),  S0(2C0),  7(200),  JC , IR(?0C,2).  DMU(2oO),  VLNM2PQ), 
2I0J112),  PAI20U.2).  RR<20P,2J.  PC(200,2),  RD(2uO,2),  RE<20w,2>, 
3RF(2U0,2),  CH ( 2GU , 2 > , JH , W 4 8 • CP,  EN,  C(12,20b),  SPECIE ( 2C0  t 
DIMENSION  EP< 121 , XI 12> 

00  1 I : I , I S 

EPII)  = ALP  II) 

00  1 J = 1 ,N 

1 EPII!  = EPII)  - C I I,JI*VNT(J ) 

00  2 K I 1 ,1 S 

X IK  1 : 0. 

00  2 I : i,IS 

2 X (K  I x X IK  > ♦ A(I,K)*EP<I) 

00  3 K : 1,1S 

J = IOJ (K) 

3 V NT ( J ) : VNTIJ)  ♦ X ( K) 

77  FORMAT  ( IP  12E10.2  ) 

IE  (KRI lo>  .EO.  0)  00  TO  99 

WRITE  (6,77)  (ALP(J),  J = 1,IS) 

WRITE  <6,771  ( EPI J),  J Z 1,IS> 

WRITE  (6,77)  (X(J)  , J : 1,1$) 

99  RETURN 
ENO 


SUBROUTINE  BOOST ( W 4 3 ,S SI ) 

COMMENT.  COMPUTES  ORAL  FREE  BOOST  VELOCITIES  FROM  IMPULSE  AND  DENSITY. 
C IE  NOT  OESITEO,  DELETE  THE  CALL  IN  SUBROUTINE  DESIGN. 

DIMENSION  W<I2(20),  444  (20) 

DATA  JM/18  / 

0 AT  A IW4  2 ( I)  , I * 1 , 16)  /S.,10.  , 1 5 . , 2 5 . , 3C.*f>5.«60.  ,e>  9 . ,71.  ,8R.  , 

1 IOC., 1 SO. ,175. ,200.,  300., 1000. , 3000. ,5000.  / 

227  FORMAT!  / fc(F  5.  P , Ih/E  6 .0  )/6(  F.5 .0,  1 H/F6  .0 1 /6(  F6 .0,  IH/F  4*  P>  ) 

23  U FORM  AT ( / 4 3H  US  OOST  VELOCITIES  FOR  PROPELLANT  DENSITY  OF  F6.5, 


11  OH  (S.G.  OF  F8.3,  1H ) ) 

W 48  = 1728.  *W43 
123  VO  = W4  3/. 036128 
VI  = SS I *32 . 1 74 
00  127  J r 1,  JM 

12  7 W44  ( J)  r VI*AL0G(1.C*  W48/  W42(J)) 

138  WRITE  (6,230)  w43,  VC 

WRITE  (6,227) (W42(J) , W44IJ),  J=1,JM) 

139  RETURN 
L'  NO 
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SUBROUTINE  DEFIOJ 

COMPUTES  SERIAL  NUMBER  FOR  AN  OPTIMUM  BASTS  A LA  HN  BROWNE  JR. 
OCOMMON  A (12,1?),  K R ( 20  ) , AHA  T ( 10 « 12 ) « JATI12),  ASPECI12),  IN,  IS, 
lFIE(in,6l,  IE  1 10, 6 ) , AI.PC12),  W27,  N,  BL0K(li),5>,  OH(IO),  RHO(IO) 
21 SER  1(10),  tAUliri,  WK6I,  W43,  16 , NP,  VNT(2ul),  W4T,  NAME,  SER 
OCOMMON  /1BRIUM/  T L ( 2 CO , 2 > , TU(200,2),  43(200),  VNUt 200, 12 ) , OA, 
1TAU,  H ( 7 CO  I , Su ( 2 CO ) , T(2D0),  JC , I R ( 20C,2 ) , OMU(  200 ) , V L NK ( 2 CO ) , 
2100(12)  , RA (?0u,2 ? , hB (200, 2 ) , RC(2C0,2),  RD(2L042),  RE(200,2), 

3R  F( 200, 2 t , CH  1 200 , 2 > , JM,  w48,  CP,  FN,  CU2.200),  SPECIEI200) 

4 , LL ( 200  ) 

CALL  SL  I TET  U.KOGOFX  ) 

GO  TO ( 7 ,11 ) , KGOUFX 

7 CALL  SLITC  (1) 

CALL  RANKIIR,  U3,N  ) 

00  1 I : 1,N 

1 LLI I > = 9 

2 IF  = 0 

DOB  I : 1 ,1 S 

3 IF  : If  *1 

IF  I IF- N 1 9,9,8 

6 WRITE  (6,10) 

10  FORMAT  (17H0CANT  FIND  BASIS  ) 

CALL  EXIT 

9 00  4 J = 1,IS 
K = IR ( I F ,1 ) 

4 AIJ,II  : CIJ,K) 

5 CALL  LIN  CEP  ( I ) 

CALL  SLTTET(2,K0UPFX) 

GO  TO  (66,3),  KOOOFX 

66  LL  ( K ) £ L 

6 IOJ(I)  : K 
CALL  ADJUST 

1 1 RETURN 
ENO 


SUBROUTINE  Of  SIGN  ( T E, PR ,KE , S VSE NT , J ,1 ) 

OCOMMON  A ( 12  ,1 7 ) , KRI20),  AMAT(10,12),  JATI12),  ASPLC(IZ),  IN,  IS, 
IF  IE ( 10 , 6 ) , IE(10,t),  ALP ( 1 2 ) , U27,  N,  6 LOK ( t 0 , S ) , UH(1Q),  RH0(10> 
21  SER  H10  ) , UATt(lO),  U 1(  6)  , W43,  16,  NP,  VNTI97),  W47,  NAME,  SER 
COMMON  / SCR  AT  C/PLOT (5,100) 

OCOMMON  /IBRIUM/  T L l 2 LO  ,2 ) , TU(200,2  ),  43(200),  VNU12U0.12),  OA, 
1TAU,  H( 2U0) , SU(2rO),  Y(  200),  JC , IR(200,2  ),  0HU(2U0),  VLNK(20o), 
21 OJ ( 1? ) , RA (200 , 2 I , RB (2  00, 2 ) , RC(200,2),  RDI2uO,2),  RE(200,2), 

3R  F (2  00,  2 ) , CH ( 200 , 2 ) , JM,  W48,  CP,  FN,  Ctl2,200),  S’ECIE(2U0» 
DIMENSION  TEMP (20) ,PRFS( 20 ) ,HEAT < 20 ) ,VOLU( 20 ) , IPH (20) 

DIMENSION  SPI (2) , AST (7 ),PST (2) ,GAM( 2),CF(2 ) ,EV <2) ,CST (2) ,RISP (2) , 
10EX(2),Eu(2),THRT(2) ,TEX(2) 

1 FORMAT  (4E16.6,  19) 

TEMP (l ) = TE 

PRES  (t)  = PP 

HEAT  (I ) : HE 

VOLU(I)  = FN*.U8205*TE/PR 
I PHI  I)  = IPHASE(J) 

NPNTS  = I 

IF  (I.EO.  1)  oO  TO  99 

SPI(J*1  ) = 9,3  29  4*  SORT  ((HE  ATI  1) -HEAT (2)  )/W2T) 


1C  TEXI J*1 I r TEMPI2) 

AS  = VOL  U 1 2 > / S 0 R T (HEAT  (X  ) -HE  A T I 2 ) ) 

CON V r 1 ./lOOO./SORT (B372.PV27) 

NSTART  = 2 

IF  (J  • E Q.  01  60  TO  21 

DO  20  L IN  ~ 1,8 
DO  IS  K = NSTART,  NPNTS 
IF  (NPNTS  .EC.  2 1 GO  TO  9 
IF  llPHIk-l)  .EC.  TPh(K))  GO  TO  IS 
IF  ( ABS ( TEMPI K ) -TE HP IK-1 )>  .LT.  2.)  60  TO  19 
9 TEMP (K ♦ 1 J : TEMP  I M 
PfiES  IK*  1 ) : PRESI K ) 

HEAT  IK  ♦ 1 ) : HEATIK ) 

I PH  < K ♦ 1 I = IP  H ( K | 

V OLU  IK*  1 ) : V 0 LU ( X ) 

IPH(K)  : IP  HI  K - 1 ) 

NSTART  - K ♦ 1 
NPNTS  S NPNTS  ♦ 1 
TUP  = TEMPlK-lJ 
TLO  : T E MR  I K ♦ 1 I 
PUP  = PPtSI  K-l ) 

PLO  : P R tS  t K ♦ 1 > 

HUP  : HE  AT(K-l) 

HLO=H£AT  IK*  II 

DO  15  L = 1,10 

TEMP  IK  ) : . 5* I TUP ♦ TL  0) 

TE  = TEMPIk  I 

IF  (TE  ♦ *.  .LT.  TF.MPIlll  GO  TO  151 

TEMPIK)  : TLO 

PRES  (K  ) = PLO 

HEAT  (K  ) : HLO 

GO  TO  16 

151  IF  ITE  -l.  .51.  TEX  I?  1 1 GO  TO  152 

TEMPIK)  -TU  P 

PPESIK)  =PUP 
HEAT  (K  I IHUP 

VOLUIK)  ; FNS.i.  CiC'5*TEMP(K)/PREfilK) 

GO  TO  21 

152  TEST  EMP (K) 

CALL  TS8AL  (TE,  PPESIK),  HEATIK),  S ¥ SEN  T ,P  UP  ,PLO  ) 

I V A = I P HAS  E I J I 

IF  I IV A .NE.  IPH(K-ll)  GO  TO  1J 
IF  < IV A .EO . I PH  I K ♦ 1 ) ) GO  TO  16 
TUP  s TEMPIK) 

PUP  = PR  ESI  K) 

HUP  = HEATIK) 

GO  TO  15 

11  TLO  = TEMPIK) 

PLO  = PRtSIK) 

HLO  = HEATIK) 

I PH  | K ) = IV  A 
• 15  CONTINUE 

1 6 VOLUIK)  r.  F N*  . rj82  C 5*  TE  HP  (K  ) /PRE  S ( K ) 

GO  TO  20 

19  CONTINUE 
GO  TO  21 

20  CONTINUE 

21  DO  31  L = 2, NPNTS 

CALL  ONE  DIHEATIl ) .TEMPI  L-l) ,PRESIL-1) ,HEATIL-1), VOLUIL-1), TEMPILl 
1 , PRESIL  ) , HEATIU,  VCLUIL),  PST(JkI),  ASTAR,  6T,  GC,  GV,  LL  I 
IF  (PRESIL)  .LT.  P ST  I J*l ) > GO  TO  53 
31  CONTINUE 

53  IF  IPSTIun)  .LT.  PRESIL -1»)  GO  TO  32 
PSTI J*1  I = PRESIL-ll 

ASTAR  : VOLU I L-l) / SORT  (HEAT  111  - HE  A T I L ••! ) ) 
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32  OEX ( J*l  I : AS / AST  A R 
G AH  ( J*  1 ) : GV 

CONV  : 1 ./1000 ./SCRT *?366.*W 27) 

AST  * J, 1 ) r AS  T AR*f  ONV 

C0NV1  : 9.806/i00C./4184./24 .218 

CF«J+1>  : C0NVl*SPXtJ*l)/Ul(5)/AST(J*l) 

E V ( J *1 ) : 3 2.1 74*  SP  I ( J*1 ) 

RISP(JM)  = W 4 3 / • 0 3613  *SAI(J*U 
E L ( J *1 ) : 1U4  3/. 03613)  ♦■'’J. 78)  *SPIIJ*1) 

A ST ( J* 1 ) : AST *J, 1 )*  15S0./. 00220462 

TMRT (J* 1 ) = T EMP ( L )*(PRES(L) /PST (J*  1 ) ) **GT 

IF  (J  • E U.  0)  GO  TO  99 

CONV  = CONV/CONVI 

PAST  : PSTtU+l* 

9875  DO  49  K : 1,  100 

IF  (KR<3)  .NE.  0 .AND.  X .EC.  2)  GOT09376 

PLOT  U ,K  ) = K , 

AREA  : A STA  R*P  lOT ( 1 . K ) 

00  33  M : L ,NPNTS 

IF  <M  .GE.  NPNTSJ  GO  TO  34 

IF  (AREA  .IT.  VOLU (H  )/SORT I HEAT ( 1)  -HEATIM)))  GO  TO  34 

33  CALL  ONE  D ( HE  A T ( l ) , TEMPI 1 ) , PRE S <M ♦ 1> , HE  AT < M* i ) , VOLU *H ♦ 1 > * T EMP* M) 
1 , PRE  S* M ) .HEAT (H)iVOLU(M)  ,VA,VB,GTvGC,GV,LL  ) 

3 4 L - H 

PUP  = PAST 
PLO  : PA  ST/  3. 

00  43  M : 1,28 

PLOT  12, K I = .S*«PUP,PL0I 

IF  ( (PUP-PLOT  (t,K  1 >**PLO«PLOT<2,K)>  ) 35*44,  44 

35  VOL  = V0UML)*<PRFS(L)/PL0TI2,K)  )***!. /GV) 

GO  TO  *36,37) , LL 

36  HE  = HE  A T CL  ) ♦ GC**V0L*PL0T«2,K)  - PRES*t>  *VOLU(L  )) 

60  TO  38 

37  HE  r HEATIL)  ♦ GC  *AL  OG  (PLOT  ( 2 ,K  ) /PRE  S * L ) ) r , 

36  IF  (APEA  V0L/SQRTCHEAT«1)-HE)>  39,44,40 

3 9 PLO  = PLOT*  2 , K ) 

GO  TO  43 

4 0 PUP  = PLOT( 2,X ) 

43  CONTINUE 

44  PAST  = PLOT  *2 ,K) 

PLO  T (3 , K ) = TEMP* L)* (PRES(L) /PL0T*2 ,K) ) **G T 
PLOT (4,K ) = 9.3294*SQRT(  (HEAT(l)-HE  ) / W27) 

PLOT  (5  , K ) : PL0T*4,k)  ■*  PLO  T ( 2,  K ) *A  REA  *C0N  V 
49  CONTINUE 
2 FORMAT  (IP  5E18.7) 

9876  yRTTE  *6,1243) 

124  3 FORMAT*/  72  HuIHP  UL  Sr  IS  EX  T*  P*  CF  ISP*  OPT  EX 

X D-ISP  A*  M , EX  T) 

1245  FORMAT*  F7.1,F6.4,F7.0,F7.2,F7.3,F7.1,F7.2,F7.1,F8.5,F7.U) 

1244  FORMAT I/F7, 1, FS .4 , F 7.0,F7.2,F7.3,  7X, F 7.2 , F 7. 1 ,F8. 5 , F7 . 0 1 

WRITE*  6 ,1244  )SP1»1)  ,GAM * 1 ) , THRT I 1)  ,PST*1)  ,CFI1),  0EX«1) 

1 , RISP(1 ),  AST  » 15  , TEX* 1) 

CS7 ( 21  = PL  OT  *5,1) 

WRITE *6 ,124  SI  SPI<2) ,G AH ( 2 I , THRT * 2) ,PST*2) ,C F * 2 ) , CST * 2 ) ,0  EX  * 2 ) 
X,RISP«2),AST*2),TEX(2) 

24  FORM  AT*  'UINGREO.  DENSITIES  A RE  • / I 9F  8 ,4  ) ) 

WRITE* 6 ,24) *RH0*I> , 1=1, INI 
I F ( K R ( 3 ) .GT.  0>G0  TO  98 

C OELETABLE  NON-  ASCII  OUTPUT  OF  DATE  AND  TOFDAY  . 

WRITE *6, 231*1  SERI* I)  ,1=2,61 
23  FORMAT*  6) 

CALL  BOOST* W4 3,SP  I *2  )) 

98  CONTINUE 

99  RETURN 
END 
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SUBROUT  I NF  OESNOZ 

C NOZZLE  HA  PCWARE  UESION  ROUTINE. 

OCOHMON  M12,12>,  K R I i <? » . AMAT(i0,12>,  JAT(  12  ) , ASPEC<12),  IN,  IS, 
lRIEtn.6),  IE  .10,6  ) , A IP  ( 1 2 ) , W27,  N,  ELOKI’O.S),  uM(10),  kHO(lO), 
2ISEKH1>*»,  ixATtU'J,  W 1 ( 6 ) , W43,  16,  NP  , VNT(2ul>,  V47,  N AMr  , SER 
COMMON  /SCRATC/PLO T( S,  1001 
CALL  SLITET  13, ISC) 

IF  (ISC  .EU , 1 ) 60  TO  99 

2 i FORMAT!  • 1* , 5A6  ) 

05  H K:*,1(!D 

TVA=PLOT (4,K) ♦ (PLO  T( 6,K> -PL  0 T ( 4 , K ) ) * (PLO T(  2 , K ) -1 , I/PLOT  ( 2 ,K ) 

IF(K  ,E0.  2fc  .OH.  K ,E0.  6b  IHR  I TE  < 6,  2 3 ) ( IS  ER  I ( I ) , 1 = 2 , 6 ) 

IF  (X  ,Fo.  1 .OR.  K .EO.  26  .OR.  K ,E0 . 66 ) WR IT F < 6 , 200U  ) 

2 -CO  F ORM AT ( * C • , • EXP.’,’  EXIT*,'  EXIT’,'  FXIT’,’  OPTIMUM’ 

£,’  OPTIMUM’, • VACUUM’, • VACUUM’, • SEA  LV’,’  SEA  LV’/ 

S’  RATIO’,’  PR  lSS  ’ , ’ PRESS’,’  TEMP’,'  IMPULSE’, • IMPULSE’ 

C, ’ IMPULS’, • IMPULS’,’  IMPULS’,’  IMPULS’/ 

tiOX  , ’ATM  ’,’  ST’,’  K’,*  SEC',’  SI’,’  SEC* 

i . ’ Si’,’  SEC’,*  SI’) 

V AIPLOT U,K )*lul. 3 
VB-PLOT ( 4 ,K  )*  9 . 8C  6 2 1 
VC  = PLOT  15, K )*9.8Q6«,1 
V0=TVA*9. 90621 

49  HRITEI6 ,777 71  PLOT ( 1 , K) ,PLOV( 2,K ) , VA , PLO T d ,K  ) , PLO T ( 4 ,K ) , V B , 
tPLOT (5 , K ) ,V  C, T V A , V 0 

7 777  F0PMAT(Fb.0,F7.3,F7. 1, F7 .0, F 8 . 1 , F8. 0 ,F 7 . 1 , F7 .0  ,F7 . 1 ,F 7. 0 ) 

99  RETURN 
END 


SUBROUTINE  EOUIH  TE,PR,NE,ENTR,IX) 

COMMENT.  THIS  ROUTINE  COMPUTES  CHEMICAL  EQUILIBRIUM  FOR  A PRESSURE, 

C TEMPERATURE  POINT.  OTHER  OUTPUTS  ARE  ENTHALPY  AND  ENTROPY,  HEAT 
C (CP)  AND  MOLES  OF  GAS  ARE  AVAILABLE  THRU  COMMON. 

C THIS  ROUTINE  IS  CALLED  BY  PEP.  HBAL,  SBAL , AND  TSBAL. 

COMMENT  UNITS  ARE  TE  (DEG.  K. ) PR  (ATM.)  HE  (CAL/SYS  NT.)  ENTR  (CAL/D 
C /SYS.  WT.)  SYSTEM  WEIGHT  IS  W27  IN  COMMON. 

COMMENT.  IX  IS  U FOR  FROZEN  EVALUATION  OF  THERMODYNAMIC  VARIABLES. 

C IX  IS  1 r OR  EQULIPRIUM  EVALUATIONS  (IX  = 2 FOR  KINETIC  IN  SOME  VER 

COMMENT.  IN  ADDITION  TO  PRESSURE  TEMPERATURE  POINTS  THIS  ROUTINE  MAY  BE 
C FREELY  FnR  VOLUME  TEMPERATURE  POINTS  BY  USJNG  THE  FOLLOWING  MOD  I F IE 
C CALL  SEQUENCE.  VNT ( NP » = AL OG ( . 0820 5* f E /V ) ) KRC17)  = l CALL  EQU 
C (TE,  PR,  hE,  ENTR,  IX  ) KR(l7)  = o PR=FN*VNT (NP ) 

C V IS  THE  SYSTEM  VOLUME  IN  LITERS/SYS.  WT. 

OCOMMON  A(12 ,12),  KRI20),  AHA T t 1 D , 12 > , JAT(12),  ASPEC (12 ) , IN,  IS, 
IF  IE  (10  ; 6 > « IE  ( 10, 6 ) , ALP(12),  W27,  N,  BLOKdO.S),  DH(lO),  RHOdO), 
21  SER  I ( 1 0 ) , WATt.dE),  U 1(  6) , W43,  IG  , NP,  VNT(2D1),  W47,  NAME,  SER 
CCOMMON  /IBR1UM/  TL(2CO,2),  TU(200,2),  W3(200),  VNU(?00,12),  QA, 
1TAU,  H ( 2 UC) , SD(200 ) ; Y(200>,  JC , IR|200,2  ),  DHU(2U0),  VLNK(200), 
21 OJ ( 12 ) , RA (200,2)  • RB(200,2),  RC(?00,2),  RD(200,  2),  RE(200,2), 

3RF ( 200 , 2 ) , CH ( 200 , 2 ) , JM , W48,  CP,  EN,  C(12,200),  SPECIEC2C0) 
COMMON/MOON/TSTEST 
DIMENSION  X 112),  XM( 1?) 

6 FORMAT  (15, F10. 0,  F12.3) 

9 FORMAT  (IP  10513. 4 ) 

1734  CALL  GIBBS( TE  ) 

CALL  FIX  BAS 

1T35  IF  (IX  - l)  71,12,12 
12  DO  38  J = 1,IS 
X(J)  r □. 

XM(J)  2 C. 

00  31  I = 1 , N 

IF  (CIJ.I)  .EO.  0. ) GO  TO  31 
X H ( U ) = AMAX1 ( VNT ( I)  , XM ( J ) ) 

X(J)  z X (J)  ♦ C(J, I ) *V NY ( I ) 
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31  CONTINUE 

IF  JABS  (ALP  (J>  - XIJM/XNIJ)  .LT.  .00001)  GO  TO  36 
CALL  SL  I TE  ( 1) 

GO  TO  39 
36  CONTINUE 
3 9 CALL  0EF10J 

CALL  REACT  (TE ) 

00  211  I c l,N 
211  W 3 ( I I = 50.0  -VLNK(I) 

CALL  RANK(IR,W3,N) 

1 1 DO  22  Jt  = 1 ,20 
CALL  TM I TCH (PR  ,0) 

CALL  SLITET  (4.K0Q0FX) 

GO  T0(  146,  17)  .KOrOFX 
146  IF  (KR(13)-1>  15,14,15 

14  WRITE  (6,8)  JC,TE,PR 

WRITE  (6  ,9)  (VNT  ( I ) , 1 : l,N) 

15  00  23  ICC  = 1,3 
2 5 CALL  TW  I tCH  (PO  ,1  ) 

CALL  SL  I TET  (4  ,l\3u -EX  ) 

GO  TO  ( 2.1,22)  .hOu'.'FX 
23  CONTINUE 
2 2 CONTINUE 

CALL  SL  I TE  (3  ) 

2 1 VNT (NP ) : ALOGiPH /FN  ) 

17  CALL  TH  E kMO  (TE,  HE,  FnTR) 

VNT (NP)  : EXP (VNT (NP  1) 

TET  : rc 
RETURN 

END 


SUBROUTINE  FI X B AS 

CJC  OHM  ON  A (12,12),  KRIini,  AM  AT  ( 10 , 12  ) , JATI12),  AS  PE  C ( 1 2 ) , IN,  IS, 
IF  IE ( 10 , 6 ) , 1 E ( 1 0 , t ) , ALP ( 12) , W27,  N,  BL0K(10,5),  UH(IO),  RHO(IO), 
2 1 SE  R 1 ( 1 n ) , wATE(lf),  U 1 ( 6)  , k 43,  IG , NP,  VNT(201>,  W47,  NAME,  SER 
OCOMMON  /1BR1UM/  TLUU0.2),  TUI200.2),  W3I200  ),  VNU(?0n,12),  OA, 
1TAU,  H(2C0),'SU(«.FU),  V(200),  JC , IR(20C,2),  DMU(2oO),  VLNM2P0), 
21 OJ ( 12 ) , PA (200,2 ) , RB (2  00, 2 ) , RC(2C0,2),  Rr(2uO,2),  RE(2nu,2), 

3RF  ( 2L'P  , 2 ) , CH  ( 20U  , 2 ) , JM  , W48,  CP,  FN,  C(12,20U),  SPECIE^Or*) 

4 , LL ( 200  ) 


IF 

(IG  ,E0.  N)  GO  TO  99 

IGP 

= I G *1 

00 

9 J : 1,1$ 

I I 

= IOJ(J) 

IF 

(OMU(II)  ,L  T . ,9E  *1  2) 

GO 

TO  9 

DO 

8 I : IGP.n 

IC 

: 99 

IF 

(VNUIX.J)  , LO  • U.)  GO 

TO 

8 

10 

z 88 

IF 

(CMU(I)  ,GE.  ,9E*1?) 

GO 

TO  8 

DO 

7 K : 1 ,IS 

IF 

(K  . E V.  J)  GO  TO  7 

IQ 

z K 

IF 

IVNUU.K)  . NE , 0,1  GO 

TO 

e 

7 CONTINUE 
VA  r VNT  (ID 
VNT (II)  : V NT ( 1 1 
VNT ( I)  = VA 
IOJ(d)  : I 
LL ( 1 ) = C 
LL(II)  = 9 
GO  TO  9 
6 CONTINUE 
9 CONTINUE 
99  RETURN 
END 
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SUBROUTINE  GIBb3  t TE  | 

COMMENT.  COMPUTES  INDIVIDUAL  ENTHALPIES.  ENTROPIES  AND  GIBBS  TREE  ENERGIES. 
OCOMMON  A 112.12).  KRIin),  AHA  1(10.12)  . JAT<12),  AS  PE  C ( 12  I . IN,  IS, 
iF  IE  ( 10 , 6 ) , IE ( 10. t ) , ALPI121,  W27,  N.  BLOK(IC.S),  DH ( 10 1 , RHOClO), 
2ISERII10),  WATEI1P),  V1I6I,  443,  IG  , NP,  VNTC2ul),  W47,  NAME,  SER 
CCOHMON  /IRRIUM/  TL!2U0,2>,  TU<200,2),  43(200  ),  VN U ( 7U0 , 1 2 ) , LA, 

1TAU,  H ( ? CO ) , $01200),  YI200J,  JC  , IRI200.2),  DHUI200),  VLNMiPU), 

21 OJ ( 121 . RA (200,21 « HB<200,2),  PCI200,2),  R0(2un,2l,  RE(200,2», 

3R  F I 2 OQ  » 2 t , CH  < 200 ,21,  JH , 4 4 8 , CP,  FN,  CU2.20U),  SPECIE(?00) 

1 FORMAT ( 3hCT-F6«0,2UH  H,S-0,NU-D,  3/LINE) 

2 FORMAT!  J UP3E12.4  ,13  ,1H  ) ) 

3  FORMAT  ( 10H 00  ELET I ON  AS,  F10.4) 

THETA=TE/1Q00. 

□0  18  I = 1,N 
TU1=TU<  I ,11-10. 

TU2=TUI I ,1)  no. 

TEQ  = ABS ( TU( I, 1 )-TL(  1 ,2)) 

0 =C. 

IF<TE.GE  .TL (I ,1) . ANO .TE.LE.TUtI , 1))  GO  TO  30 
IFITE.GT .TL (I ♦*». AND.TE.LE.TU!I,2»>  GO  TO  31 
IF  (TE  • LE • 29S. 16)  GO  TO  30 
0=100000000 OOOu. 

3 1 K =2 

Y2=RA!I,K)*RB(ltK)*THETA‘PC!I»K)*1HETA**2.RD(I,K)*TH£TA**3 
1 ♦RE! I ,K  ) *THET  A**  ( -?) 

H2=(RF!I  ,K).RA(I,K)*THETA*,5*RB( I,K )*TheTA**2*I 1.  /3. ) *RC  < I,K) 

1 *THETA**3*.25*RD(I ,K)*THETA**4-RE ! I.K  ) *1 , / THtT A >*1000. 

SD2  = CH(  I ,K)*RA  il,  X )*ALOG  1THE  T A ) ♦ RB ( I ,K  > *TH ET A*  . 5* RC  II  ,K)* 

1 T MET  A **2 ♦ ! I./3, >*R0<I,K)‘THETA**3-.5*RE (I ,K  ) *T  HE  T A**  ( -2  ) 

IF(TE.GE.TU1.AN0.TE.LE.TU2.AN0.TE0.LE.1.)  GO  To  3 2 

V (I  I =V2 
H!I  )=H2 
SOIDsSOi 
GO  TO  20 

32  K = 1 

V lsRAII , K)*RB  < I,K ) *THETA*PC  < I ,K ) *TH  E TA**2*R0 (I,K) *THETA**3 
l *REI I ,K) *THlTA**< -2 > 

H 1= (RF( I ,X 1 *R A(I ,K )*THET A* ,5*RB ! I,K ) * THETA** 2* l 1. /3. ) *RC ( I ,K  ) 

1 *THET  A**3*.  ?S*RH  I ,K  I* THE  T A** 4 -RE  I I,K  )*1  ,/  THETA  1*11, CO. 
SDl=CH<I,K)*RA!IfK)*ALOGITHETA)*RBII,K)*THETA*.S*RclI,K)* 

1 T HE  T A **2  ♦ ( I . / 3 . ) * FD  1 1 ,K  ) * THE  T A **  3 -.  5*RE  1 1 ,K  ) *t  HE  T A**  ( -2  ) 

GO  TO  33 

30  K : 1 

Y 1 = RA!I ,K)*RB II,K  >*THETA*RC< I.K l*THETA**2*R0li,K) *TH£TA**3 
1 ♦RE(I  ,K  ) *T HET A **  < -2) 

Hl=  IRF!  I ,K>  ♦RA(X,M  ) * THET A ♦ . 5 *Pe  t I ,K  ) *THETA  **  2*  ( I . /3  . ) *RC  1 1 , K ) 

1 *THET  A**3*.25*RDI I ,K )*THETA**4-RE  < I,K )*1 ,/THETA  )*1000. 

SOl=CH!I,K)+RAIr|K)*ALOG(YHETA)*RB<I,K)*THETA+.F*RC(I,KI* 

1 THET  A**2M  1 ./  3.  )*RD  (I  ,K  ) * THE  Ta**  3-.  5*RE  ( I , K ) *T  MET  A** I -2 > 

IFITE.GE  .TU1.AN0.TE .LE .TU2.AN0.TE0.LE.1.)  GO  TO  34 
Y (I )=Y1 
H ( I ) =H1 
SOU  1=501 
GO  TO  20 

3N  V2=RAII,K)  + RBI1,K)*THETA.PCII,K)*THETA**2.RD(I,K)  *IHETA*‘3 
1 *RE< I ,KI ‘THETA**! -2 ) 

H2=!RF(  I ,K)  ♦RAII.K )*THETA..5*PB« I ,A ) *THETA  **2. ( 1. /3.  )*RCII,K) 

1 *7HET  A**3  ♦.  2S*R P I I ,K  )*  THE T A ** 4 -RE  ( I , K ) *1  ./  THt  TA  )*1000. 

S02  = CH! I ,K) *RA II ,K )*ALOG I THE Ta» *RB1 1 ,K ) *1 HET A* . 5*RC ! I ,K) * 

1 THET  A **2 ♦( 1 ,/3 • )*RD(I,K)*THETA**3-.5*RE ( I ,K ) *T HE T A** I -2 ) 

33  F2=-lTUl 1.1 l-IU.-TE )/20. 

E 1=1. -F2 

Y II)=F1*Y1*F2*Y2 
H II  )=F1*M*F2*H2 
SOU  ) =F  1 *S0 !♦  F 4*S n 2 
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20  IF  <YU>  .GE.  U.)  GO  TO  1888 

o = loon  loo  ooocog ■ 

1886  IF  (61(3)  . LT.  0.  > 0 = 0. 

IF  (TE  • LT.  29«.lh)  H(I>=H(I)  - ( 298 . 16“  TE ) *V  ( I ) 

IF  (TE  .LT.  298.16  ) SO(I)=SD(I)“  V(  I >*  A LOG  ( 2 98 . 16 /TE  ) 
18  OHUtI)  = H ( I ) - TE*SD(I)  ♦ 0 
IF  (KR(ll)  - 1)  21,19,21 

19  WRITE  (6, 1ITE 

WRITE  (6,2)  (H(l)  ,S0(  I)  ,OHU(U  ,1,  1=1, N) 

21  RETURN 
END 


S IIBP  OUT  T !*F  6UrsSi Tt  » H0  > 

COM*  LNT  • THIS  RCUTiM  COFFS  UP  WITH  A C»UDF  COMPOSITION  GUESS  GUT  IT  S 

C TO  GET  CALC'JATIOnS  TFF  TO  A F A STEP  START. 

I COMMON  A 0 2 ,12),  t'RI.:'''),  A M A T ( I T , 12  ) , JATI12),  *SPuCtl2),  IN,  IS, 

IF  If  ( ir  , 6 ) , IE(Af),(>,  A LP  ( 1 2 ) , w 2 7 , M , tLOK(lC,s),  uH(U),  RHO(IC), 

CISERKK),  WATul.’.l,  Wl(A),  WU3,  IG,  Np,  VNT(2ul),  W47,  NAME,  SER 
7, FLOOR 

LCOMMCN  /iPPIU“/  Ui;iA,?l,  TJ(2nC.2),  W5I20"!,  VuU(  2G? , 1 2 » , 6't 
'TAU,  Su(w'(l,  T(2PQ),  JC,  I R ( 2f‘0 , 2 ) , DMU  ( 2L” ) * VLNKUPfc). 

2I0J(D),  PA(2ru,.),  i:P(2CP,2l,  9CU!*C,2),  RC(?oO,2),  16(200,2), 
JRF(  lb-,  r ),  CH(.Gu.i),  JM,  W4E,  CP,  FM,  C(12,.Uu),  SP E Cl  E ( 2 'JO ) 

4 ,LL ( ) 

F L 0 0 If  = W 7 7/1  L . * » ( t>  ♦ K R (F  )) 

9 7 JO  89  J = t,N 
VA  : *.-i 
tin  Si  I : 1 , 1 S 

fld  VA  = VA  ♦ SORT  (Ac  5.  <L  IT  ,J  ) ) ) 

8 9 w 3(  j ) = r.  ova 

CALL  SL  I IF  <1.1 
CALL  (TE) 

00  lu  I = I , M 
1-4  V NT  1 1 ) =0.1) 

CALL  OEFiOJ 
77  1 CALL  PEA  CT( TE ) 

DO  1 I = 1 ,N 
1 VLNK  (I  ) = “VLNh 1 1 ) 

CALL  RANhtIR, VLNK.N) 

no  : i = i ,n 
J = IM I ,1) 

IF  (LL(  JJ  .LE.  0)  0 0 TO  T 

IF  U)MU(G)  .GF.  .9fc>l?>  no  TO  ’ 

L CALL  SETUP(V,XMI1,.XMAX,J) 

X MI N z .ECWXMAa 
fc  V NT ( J ) : XM IN  ♦ VNT(J) 

00  4 L = 1 ,IS 
K = IOJ(L) 

IF  (K  .Ft.  C)  GO  TO  4 
V NT  ( K ) = VNT(K)  - V N U(  J,  L ) * XM  IN 

4 CON  T INU  F 

5 CONTINUE 

s CALL  SL  I (E  (0) 

CALL  SLITE  (1) 

00  7 I = I ,N 
7 w 3(1  I = VNT (I  I 
27  3FTURN 

t no 
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SUBROUTINE  H BAL  I U ,PR,  FNTR,  L L ) 

COM*  L N T . THIS  ROUTINE  CO  f'PuTES  A PRESSUPE  ENTHALPY  POINT. 

INPUT  ENTHALPY  IS  U1I4I  IN  COMMON.  IX  WORKS  T HF  SA^L  AS  FoP  ELUIL  (WHICH  SEE) 
A VOLUME  INPUT  I N S T fc  A L OF  PRESSUP  WORKS  THE  SAMs.  . AY  AS  FOR  EOUIL  ALSC. 
tCOMMON  A < 1 ^ ,12).  HSU"),  AKAT(IP,12),  J A T < IP).  AiPtC(l21,  IN,  IS, 

IF  IE  (10, 6),  IF  ( 10 , , A LP  < 1 2 ) « W27,  f , flLOK(l'.',il,  0H(10),  RHOUO), 
2ISERK10).  wA  T c.  ( * ' ) , W 1 ( 6 ) t W 4 3 , 10  , NP,  VNT(.?u1),  W47,  NAME,  SER 

' COMMON  /ISRIUM/  TUIiVI,  TU  < 200,2  ) . W 3 (2  PP  ) , VN  U » ?un , 1 2 ) , (A, 

1TAU,  H ( ? wO ) , SuU'd),  Yti^O),  JC.  I R ( 2CP,  2 ) i OMUCoO),  VLNK(2r0>, 

2 IOJ  ( 1?  ) , RA  (2  P(. , 2 > , hP(2uP,2).  P C ( 2 0 L‘  ♦ 2 ) , RD«2uO,2),  »E(20S,2>, 

JRF«?00,’>,  CMUOO.L'),  UH , W48,  CPt  FN,  C(i2,2CU>i  SPECIE! 200) 

COMMON/SLRATC  /HN(2!.'C,2) 

23  o FORMAT  ( *1H  CRr  sUL  T S KO  DAMN  GOOD  > 

FTU  r 6 OtP. 0 
F TL  : 7e  • 

5 S CALL  EOUIL  (TE  ,PR,HE  ,ENTR,LL  ) 

LIM  : 2 p 

00  11  T = 1.L1M 
CALL  SLI  TET  (T.KOut'fX  ) 

GO  TO  ( ! il,2U3),RI uOFX 
2T,j  IF  (HE  - W 1 I 4 ) ) "01  ,14, 2^2 

20  1 FTL  = TE 

F LP  = VN  i (NP) 

HLP  : HE 
DO  7b  L : 1,N 
7U  HN(L  ,1  I i VNT (L) 

GO  TO  11. 

20  2 F TU  = TE 

FUP  : VNl(NP) 

HUP  : HE 
00  71  L : 1 » N 
7 1 HN(L ,? ) : VNT  (L) 

11  I K : 1 

CF:  *MAX.(1.P,LF) 

CF  : AMINK  16, b,  CF) 

0 T : (W  1 (“)  - HE)  / ( C F * CP  ) 

UTr  AM I N . ( 0 T , .5*<FTu-TeI) 

OT:  AMAXiIDT,  ,5*  ( F T L-TE  ) ) 

TE  : TF  ♦ 0 T 
HOLD  : Hi.. 

IF  (FTU -FTL  , L! , ' .)  GO  TO  21 
TF  UBSlLT)  ,L(.  .1)  GO  TO  14 
CALL  EQtJiL  (TF  ,PH  ,HC  .FNTR.I,  L ) 

1 * CF  : (HF  - HOLu)/ ( CP^HT) 

1 3 WRITE  ( 6 ,276) 
wRITt  (It, 2 36  ) 

21  VA  : (HUP-*  1>  4 ) )/ ( HU  r-HLP) 

V 7 = (W ! 14) -HLP)/ ( hUP-HLP) 

CP  : 

DO  22  t : 1,N 
CP  = CP  ♦ VNT  <LI*Y (L  ) 

IF  (LL  .f.F.  1)  Of  TO  14 

22  V NT  ( L I T V A *HN  ( L » 1 ) ♦ V0*HN(L,2> 

14  ENTR  = FNTR  ♦ (Wi(4)  - HLl/TE 
RETURN 
END 
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FUNCTION  IP  HA  St  I L ) 

COMMENT  THIS  ROUTINE  DETERMINES  HHAT  CONDENSED  PHAStS  ARE  PRESENT. 

□ COMMON  A (12  d 2 ) , KRUO),  AMA  T ( 10 , 12  ) , JAT(12>,  ASPECI12),  IN,  IS, 
IE  IE  1 10 , 6 I , IEIIO,*),  A LP  (12)  , U27,  N,  BL0KUU.5),  OH(lO),  RHOIi.O>, 
2ISERK1C  ) , WAUUD),  Wl(6),  W43,  16,  NP , VNT(2CJl),  W47,  NAME,  SER 
3, FLOOR 
I PHASE  = 0 

IF  (16  .EC.  N>  60  TO  99 
INC  5 1 
I6P  : I G «1 
00  12  I = 1GP  ,N 

IF  IVNTII)  .LE.  FLOOR)  GO  TO  12 
IPHASE  = IP  HA  St  ♦ INC 
12  INC  : INC  ♦ INC 
99  RETURN 
END 


SUBROUTINE  LINDEP  (I) 

filMPFNT.  ThIS  ROUTINE  ESTAtLISHCS  LINEAR  DEPENDENCE  BY  THE  GRAM  SCHM  IDT  • 
C T10N  AND  ThEN  INSERT;,  THE  A MATRIX  BY  THE  METHOD  OF  CONJUGATE  GRAD  IE 
□ COMMON  A (12  ,12),  KRUO),  AMA  T ( 10  « 12  ) , JAT(1?>,  AsPLCtlE),  IN,  IS, 
lFIE(n,6),  IE  ( 4 3 , t ) , A LP  ( 1 2 ) , 427,  N,  BLOKttL.b),  DH(lo),  RHUtlC), 
2ISERK1C),  WA  T L ( 1 n ) , U 1 ( 6 ) , W43,  IG  , NP  , VNTI201),  W47,  NAME,  SER 
DIMENSION  SS<  li'l  , D(  12,121 
D (I  . I ) = 1. 

IF  (I  ,CJ.  IS)  60  TO  S87 
IF  II  .EG.  1)  GO  TO  8 
IM  ; I -i 
00  7 J I 1 ,IM 
0(J,1)  = 0. 

R s 0.0 

DO  2 K ; 1,IS 

IF  (AIK  ,i)  .EO.  U.  ) GO  TO  2 * 

IF  ( AIK , J>  .EO.  U.  ) GO  TO  2 
R = R ♦ AIK  ,J  ( *A  ( K , I ) 

2 CONTINUE 

IF  (R  .EG.  Q. I GO  TO  7 
0 = R/SS  (J) 

V A = 0. 

00  3 K ; I ,IS 
A IK  , I ) = A | K , I ) - 0*A(K,J) 

IF  (AIK , I)  ,E0.  0.  ) GO  TO  3 
YA  = VA  * ABSIAIK.  t)  ) 

3 CONTINUE 

IF  (VA  .LT.  . 1 ) CO  TO  b 
DO  17  K r 1,J 

17  0 (K  , I ) : D ( K , I ) - 0*D(K,J) 

7 CONTINUE 

e ss«i)  = v>. 

DO  4 J : 1 ,1$ 

4 SS(I)  = SSU)  ♦ A ( J . I ) **  2 

5 CALL  SLITE  (2 1 

IF  (I  .LT.  IS)  GO  TO  b 
68  7 00  13  J = 1,IS 
00  13  K = I, IS 
VA  : 0. 

DO  12  L = J,IS 

12  VA  = VA  ♦ 0(J,L)*A(K,LI/SS(L) 

13  ““jJ)  * VA 
871  FORMAT  (7F18.6) 

b RETURN 
ENO 
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U*',L  nNE  0NE  0 «HSTAG,T2,PZ,H?,VZ,T0,P0,H0,V0.PS,AS,GT,GC,6V,LL) 
CONSENT  CONTINUITY  EOUATION  FOR  1 DIMENSIONAL  FLO.  FOR  ADIABATIC  (19) 
C OF  ■ .-OUERMAL  (20)  MODELS. 

Co.  ! 0.7  A(I2.12),KR(2L) 

IP  ’'4(111  ..NE.  U 1 WRITE  (6.1 122  )P2  ,P0 
IF  (HRIll)  .NE.  0)  WRITE  (6,1128)  N 2 ,H0 

1126  FORMAT  (•  HX, H0*2E  14  .4  I 

IF  (KR(ll)  .NE.  CJ)  WRITE  ( 6 , 1 124  ) T2  , TO 

1124  FORMATS  T2  ,T0  *2£  14.4) 

IF  I KR  I 1 1 ) .NE.  0)  WRITE  1 6 , 1 12  3 > VZ  , VO 
112 2 FORMAT  (•  P X,P0'2E 14  .4 ) 

112  3 F ORH  AT  ( • V2  , VO  (2E  1 4 • 4) 

GT  = ALOC(TO/TZ)/ALOG(PZ/PO) 

GV  = ALOG(PO/P*)/ALOG< V2/V0) 

IF  (KR(ll)  ,NE.  01  WRITE  < 6 , l J 2 5 ) GV  , GT 

1125  FORMAT  (•  GV,GT'2E14.4) 

LL  = 1 

IF  (A8SIT2-T0)  .GT.  3.)  GO  TO  19 
LL  = 2 

GC  s (MO-HZ  )/AL0G(P0/P2) 

IF  IKR(H)  .NE.  0)  WRITE  (6,1127)  6 C ,HS  TAG 

1127  FORMAT  (•  GC,HSTAG'2E14.4) 

PSTAR  = PZ* EXP (-GV / 2 , ♦ (MS T A G-KZ )/ G Cl 
HSTAR  = HZ  ♦ GC4AL0G  (PSTAR/P2 ) 

IF  (KR(ll)  .NE.  0)  WRITE  ( 6 , 1 129  ) PS T AR , HST AR 
1129  FORMAT  (•  PSTAR, HSTAR*  2E14.4) 

VST  AR  = VZ*(PZ/PSTAR1**< l./GV) 


GO  TO  20 

19  GC  = (HO-HZ  1/ <PO*VG  - P2*VZ1 

PSTAG  : PZ* (1 . ♦ ( HST  AG  - HZ ) /GC/ PZ/ VZ > * * (G V/  IGV -1  . ) ) 
PSTAR  s PSTAG*l2./(GV*l.n**(GV/(GV-l.)l 
VSTAR  s VZ*(PZ/P$TAR)**(1,/GV) 

HSTAR  S HZ  ♦ GC*( PST  AP*VST  AR  - PZ*VZ) 

2 H AS  = VSTAR/SORKHSTAG-HSTAP) 

PS  = PSTAR 


RETURN 

END 


SUBROUTINE  OUT  ( PP  , TE , HE  ,E  N T R ,N  S I 
COMMENT.  COMPOSITION  AND  STATE  VARIABLE  OUTPUT  ROUTINE. 

(.'COMMON  A (12  ,12),  *R<20>,  AMAT(in,12>,  J AH  121,  ASPEC<12>,  IN,  IS, 
IF  IE ( 10 , 6 t , IE ( 10, 6 ) , *LP(12),  W27,  N,  BL0K(1C,5),  DH(10»,  RHOtlO), 
2ISERK101,  WATtUD,  W 1<  6)  , W43,  IG  , NP,  VNT  (2U1 ) , W47,  NAME,  SER 
3, FLOOR 

OCOMMON  / 1PR IUM  / Tl(?00,2>,  TU(200,2),  W3(200),  VNU(200,12  ),  OA, 
1TAU,  H(2C0),  So(2C0),  Y ( 200 ) , JC , 14(200, 2),  0MU(200),  VLNM2001, 

2 1 OJ ( 1? ) , PA (200,2 ) , RB  <2  00, 2 ) , RC<200,  2),  RD(2UO,2),  REI200.21, 

3RF ( 200 , 2 ) , CH ( 200 , 2 ) , JM,  W4B , CP,  FN,  C(12,200>,  SPECIE(200) 
OIMENSI ON  SPOT  (4)  , VOT (4 ) 

102  FORMAT  (/•  TIKI  F(F)  P(ATM)  P(PSI)  ENTHALPY  LNTPOPV  CP/CV 
X G AS  RT/V'I 

104  FORMAT  < 2F6.0.F8.2 ,F9.2,F9.Z ,F9 .2,F8,4 ,F7, 3.F8.31 

44  FORMAT  l4HX,F9.£,lX,Ab>  ) 

45  F0RMATI4  (IX  ,1PL9.Z,1X,A6>> 

2 1 FORMAT  (jH  ) 

GAMMA  = CP/ (CP  - J.9«71*FN) 

TF  = 1 » 8 *TE  - 459.4 
VH  •-  HE/  1000.0 
PF  : PR*14.  70069 
WRITE  (6,102) 
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13  WRITEI6.I04)  Tt,TF, PR, PF,VH,ENTR, GAMMA. FN.VNT1NP) 

WRITE  (6  ,21  ) 

C ALL  RANndR,  VNT  , N ) 

J = 1 

DO  9C4  11=  1,N 
I = IR( IX, 1 > 

IF  (VNT (I  I .IE . FLOOR)  CO  TO  904 
SPOT  (J)  s S PEC  IE ( I ) 

VOT(J)  = VNT(I) 

J = J ♦ i 

IF  (J  .LT.  5)  GO  TO  9U4 

IF  (VOT(l)  ,GT.  • ! u9  99  5 ) WRITE  ( 6 , 44 H VOT (K ) , SPO T { K ) ,K= 1 , 4 ) 
I F<  V OT ( 1 ) .LE.  .009995  1 WRI T£ ( 6 , 45 ) ( VO T ( K ) , SPOT ( K > ,k  = 1 , 4 ) 

J = I 

90  4 CONTINUE 
0 - J “ 1 

IF  ( J .NE.  O'  .RITE  (6,4S)(V0T(K  ) , SPOT ( K > , K= 1, J ) 

170  RETURN 
END 


COMMENT.  THIS  PROGRAM  CONSISTS  OF  ROUTINES  PEP*  TSALT,  DESnOZ,  BOOST*  TSBAL* 
TABLO,  T«ID,  SLTUP,  REACT,  AOJUST,  RANK,  OUT.STOICH,  EQUIL  , PUTIN, 

OEFIOJ,  (.NED,  IPHASE,  THERMO,  GIBBS,  TWITCH,  HBAL,  DESIGN,  SEARCH, 

LINOEP,  SBAL,  GuESS*  TAPES  AND  FIXBAS) 

COMMENT.  THE  MAIN  PROGRAM  CONTROLS  THE  INPUT  AND  OUTPUT  AND  ESTABLISHES  THE 
C PROPELLANT  THERMODYNAMIC  MODEL  IN  THE  WAY  IT  CALLS  HBAL  AND  SBAL. 

(JCOMHON  A (12  ,12  ) , K R ( 10  ’ , amaT<10,12>,  JAT(12),  ASPtC(12),  IN,  IS, 

IF  IE ( 10, 6 ) , IE ( ID*  b ) , ALPII2),  W27,  N,  BLOK(10,5),  DH(10),  RHO(IO), 
2ISERIU0),  WATtar),  Wl(6>,  w93>  IG,  NP,  VNT(2uIl,  W47,  NAME,  SER 


3,  FLOOR 

OCOHHON  /IBRIUM/  TL(2LD,2),  TU(20G,2),  W3«20D),  VNU(2DD,12),  QA, 
1TAU,  H(?tO),  SDUrO),  Y ( 200 ) , JC  , IR(200,2),  0MU(200),  VLNKI20U), 
2I0J(12>,  RA(20u,2),  RB  (20P,2)  , RC(2nO,2),  RD(2uD,2).  RE(2D0,2), 
3RF(2Dn,2),  CH  ( tOu , 2 ) , JH,  W48,  CP,  FN,  C<12*20u),  SPECIE  (20(11 

4,  LL ( 200  ) 

C0MM0N/M00N/T5JEST ,TE, IRUN 
CALL  SETCLK 


I RUN  = n 
TCH  = 3 DOG. 

o TE:  AMAXKTCH,  5UD.0) 

TSTEST  : 0. 

TE  = AMINl( TE.SOOC.  I 
CALL  PUT  IN  (LE) 

C THE  NEXT  STATEMENT  DELETES  CALCULATION  WHEN  INPUT  ERRORS  ARE  FOUND. 


IF 

(LE  .EO. 

1 I 

STOP 

PR 

= Wl ( 5) 

IF 

(KR( 19) 

.CO 

W> 

o 

© 

© 

CALL  GUESS 

ITE 

,PR  ) 

IF 

(KR ( 7 > , 

EQ  . 

0)  GO  TO  14 

TE 

= Wl (6) 

VNT(NP)  : AL0G(.ue205*Wl<6)/Wl<S)) 
CALL  EOUIL  (TE,  PR,  HE,  SE , 1) 

PR  = FN*VNT(NP) 

SYSENT  : SE 
GO  TO  114 

14  CALL  H BAL  (TE  , PR,  SYSENT,  i) 

12  TCH  : TE 
HE  : Wl ( 4) 

CHN  : FN 
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114  CALL  OUT  (PR, Tt,HE  .SYSENT, 1> 

IF  (KRIll  .CO.  1)  60  TO  8 

IF  ( wl  ( 5 ) ,6E.  U 1 I 6 ) ) GO  TO  125 

WRITE  I 6,3) 

3  FORMAT  (/•  WHY  IS  THE  EXIT  PRESSURE  .GE.  THE  CHAMBER  PRESSURE.  •> 
GO  TO  8 

125  CALL  DESIGN  (Tt,  PR,  HE,  SYSENT,  0,  1) 

PR  = Wl (6) 

CALL  S BAL  <TE,  PR,  HE,  SYSENT,  TCH,  0) 

CALL  DESIGN  (TE,  PR,  HE,  SYSENT,  0,  2) 

22  TE  = ,5  * (TC  H*TE I 

70  CALL  S BAL  CTE,  PP,  HE,  SYSENT,  TCH,  1) 

CALL  OUT  (PR, TE, HE  .SYSENT, 2) 

F LOO  R: W 2 7*1 .E-7 

CALL  OESiGN  < T £ , PR,  HE,  SYSENT,  1,  2) 

IF  ( KR ( 7 ) .EC.  0)  CALL  D^SNOZ 

GO  TO  8 

END 


SUBROUTINE  PUT  IN  (LE) 

COMMENT  INPUT  ROUTINE  CALLED  BY  MAIN  PROGRAM. 

CALLS  ROUTINES  DATE  i»  T OF D AY  (TIME  OF  DAY  I WHICH  MAY  Bt  DELETED 
C ALSO  NOTE  OELETABLE  ROUTINES  SETCLK  AND  LKCLKS  THAT  MEASUPE  CPU  T THE 
□ COMMON  A ( 12 ,1 2 ) , KRIZO),  AMAT(ln,12>,  J A Tt  1?  » , A$PEC|12)t  IN,  IS, 
IF  IE  I 10 • 6 ) • IE ( 10 , f ) , ALP  1 12) , W27,  N,  BLOKIlO.Si),  DHI1D),  RHO(IO), 
2ISERK10),  wATEdP),  W 1(6)  , W43,  IG , NP,  VNT(2D1>,  U47,  NAME,  SER 
3, FLOOR, I TAG  llODl , WlN6(  10) 

COMMON/ MOON/TS TEST , TE,  IRUN 

DIMENSION  J E ( 1 D ,6 ) , JIE( 10, 6 i ,SW ING ( 10 1 

DIMENSION  ATWT(lUn) 

DATA  (ATWT(I),  I : 1,1001/1.008,  4.003,  8.94,  9.013,  10.82,  IT. Oil 
1,14.008,  16.,  19.,  20.183,  22.991,  24.32,  26.96,  2d. 09,  30.975, 

2 32.066,  35.457,  79.944,  39.1,  40.08,  44.96,  47.9,  50.95,  52.01, 

4 54.94,  55.85,  58.94,  58,71,  63.54,  65.38,  69.72,  72.6,  74.92, 

5 78.96,  79.916,  83. 8U,  85.48,  87.63,  88.91  , 91.22  , 92.91,  95.95  , 

6 99.,  101.1,  102.91,  106.4,  107.88,  112.41,  114.82,  118.7,  121.76, 

7 127.61  , 126.91,  Ul. 3,  132.91,  137.36,  138.92,  14U.U,  14J.91, 

8 144  .27  , 14  7.,  15 r . 3 5,  152.,  157.26,  158.93,  162.  51  , 164.94,  167.2 
97,  168*94,  173,04,  174,99,  178.50,  180.95,  183.86,  186.22,  190.2, 

1 192.2,  195.09,  197.,  220.61,  204.39,  207.21,  206.99,  210.,  210., 

2 222,,  223.,  226.,  227  ,,  232.,  2 31.,  238.,  237.,  237 , , 12  . D1 ,9 .0 3 1 , 

310.82,24.32,26.98,  253,  / 

1 FORMAT  (1911,  Al,  At,  14,  5X,  15) 

2 FORMAT  (sA6,  6(13,  A2),  F7.0,  F6.D) 

222  FORM  AT ( 5A6,6( 1 3, AC ) ,r5.0,F6.0> 

32  FORMAT!  1 A,5  A6 , 6(1  ? , A 2) , F5.0,  F6.0) 

3 FORMAT  ( I2F6.6,  A6,  A2 ) 

CALL  LK  COS  (VB  ) 

CALL  SETCLK 
W R I T E ( 6 , 688  9 ) V e 

8889  FORMAT!  • t (CPU  • F6 . 2 , ’ SECS.)’) 

LE  = 0 

IF  (IRUN)  19,11,19 

11  WRITE  t 6 ,1200  I. 

1200  FORMAT) • il9  75  VERSION  OF  PEP.*) 

7771  WRITEI6 ,1120) 

1120  FORMAT  (/’QPUTIN  OPTS,  NAME,  NO. OF  INGRDS.(M),  ♦ NO. OF  RUNS(N)’) 
WRITE  I 6 ,11 29  I 

1129  FORMAT  (*01234567890  (NAME)  M N») 

READ  ( S , 1 1 ( KR ( 1 ) , I =1,1?),ISERI(1),ISERI(2),1N,I 
XRUN 

DO  12  I - 1,12 

12  J A T ) 1 ) z 0 

IF  ) KP ( 9 ) .NE.  0)  WRITE  (6,1121) 
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1121  FORM  IT  ( *0N  OW  READ  If.  INGREDIENT  SERIAL  NUMBERS  ENDING  UNDER  V.*/’ 
X V V V V V V V V V ‘ ) 

IF  (K0<0>  .Hf;u  0)  READ  (5,11121  (I  TAG(  II,  1=1,  IN) 
l F ( M R ( 9 ) .NC.  u)  . RI  TE  ( 6 , 1112  H I TAG  ( I)  , 1 = 1 ,IN> 

1112  FORMAT  I l^I 5 ) 

KR:l 

A E W I NO  11 

R f A D ( 1 1 , 1 1 1 0 > V m 
DO  13  1 - 1 , 1 im 

111  FORMAT  ( ;1A6,A5) 

1111  FORMAT  I • •!  1A6  ,A5  ) 


IF 

( K°  ( 9 ) . 

EG  . 

0)  b C 

TO  1114 

K : 

i tag  ( r ) 

IF 

(K°  .LT. 

K ) 

&:  tg 

1117 

REWIND  11 
READU1  , lliniVA 
K Pi  1 

111  7 DC  111!  j:KP,K 

I F ( J .NC  . K 1REA0I  ’1,2) 

I F ( J .NC  . K ) GO  TO  1113 

RC*D  <1  1 ,22  2)  IbLOMI  ,1  ),L  = 1,S  », ( JIE ( I,L ) ,JE( I,Ll,Lsl,fcl 
*,DH( I) , RhO! I) 

111!  CONTINUE 
KP  = K *1 
GO  TO  11.5 

1 1 1 N READ  ( 5 ,2)  (BLoK!  I , J ),  J=  1,5)  , (JIE(  I , J)  , JE(  I,  J)  , Ji  1,6  ) 

* , OH  ( I ) , R HO  ( I ) 

111b  FORMAT  ( 10A6,2X,Ab,A5> 

1115  DO  13  J = l,5 

I E ( I , J ) - oE  ( 1 , J ) 

13  F IE  ( I,  J ) =JIE(  I,  J) 

IF  (KR< lb)  .EO.  U»  GO  TO  1201 
WPITEI6 , 1205) , IN 

120a  FORMAT! • uTO  CHANGF  DK  t RHO,  TYPE  COUNT ( 1- • 12’ > , DH  ERHO.*/ 

E*  V V V'» 

DO  1204  wsl  , I N 
R FA  D (5  , 1 203  )I,tiA,VB 
120  3 FORMAT!  Ib.ZFlf  .0) 

I F ( I .EO,  CIGO  TO  12  Cl 
DH! I ) = V A 
120  4 R HO  ( I ) : V b 
1201  CONTINUE 

CALL  ST01CHILE) 

DO  14  I = l,Ii. 

WATCH)  : C. 

00  14  J = 1 , I .. 

K : j»T  I 0) 

14  WATE(I)  A WATE!I)  ♦ A-AT1I,  J)*ATWT!K) 

CALL  SEAKCHILE) 

19  CONTINUE 
lb  WRITE  lb  ,1122) 

1122  FORMAT  I’OREAD  IN  CH.  P,  EX.  P,  WTl,  WT£,  ♦ ETC.,/,  |T0  READ  N£U  C 

XOMTROL  CAPO  HI  I CAR.  RET.)’) 

WRITE  (t  ,1123) 

1123  FORMAT  <•  V V V V V V V V V*> 

READ  (5,3)  Wl(i),  w 1 (6  ) , (WING(I),  I = 1 , 1 0 ) , I SER I ( ! ) , ISER I (4 ) 

IF  I w 1 < 5 ) .EO.  0.)  GO  TO  777  1 
IF  <KR( 2 » . NE.  U GO  TO  20 
IS  = IS  -1 
2 0 I RUN  = I HUN  - 1 
KRI19)  = 1 

IF  (wING(l)  . E w . !'.)  GO  TO  120 
K R I 1 9 ) = C 
DO  21  J - 1,IS 
ALP(J)  s D. 

DO  21  I = l, IN 


78 


NWC  TP  6037 


2  i ALP!U)  : ALP!J)  ♦ AM*T  (I ,J)*WING ( I) /WATE(I ) 

V 27  =0. 

U 1 ( 4 » = U. 

W 4 3 s C'  . 

VA  : 1. 

DO  22  I : 1 1 I N 
SWINGtl  ) : W I N o ( 1 > 

W 1 1 4 ) = .1(4)  * OM  I )*WING  ! 1 I 

W 27  = W27  ♦ WING! 1 ) 

IF  (RHOU)I  25 ,2C  ,24 

24  W43  : W 4 3 ♦ WING!  I ) / kH  0(  1} 

GO  TO  22 

25  VA  r 0, 

22  CONTINUE 

W43  = V t /M4  3 *W2  7 

12  j IF  ( KR ! 4 ) ,NE.  1)  GO  TO  2 3 
IF  (K°( 1 7)  .£0.  1)  GO  TO  23 
u 1 < S ) = »1  ( 5) /14. 70064 
IF  <KR<  7)  ,E0.  1>  CO  TO  23 
W 1 ( 6 ) = Wl(6)/14.TuCb9 
CALL  0ATUISEPH3!  ) 

CALL  TOFCAY  (IStRI (51  ) 

23  WRITE  16,16)  (ISEWKI),  I = 2,6) 

lb  FORMAT! *1',5A6,6X, *0H  COMPOSITION*/) 

DO  27  I = 1,14 
DO  135  L :l , 6 

IF(JIE(I,L)  .EO.  C)  GO  TO  136 

135  CONTINUE 

136  L:L-1 
IDH:DH ( I ) 

2 7 WPITE(6,«T) <BL0K(1,J),J:1,5),I0H,(JIE(I,J)  ,J£(I,J),J:1,L) 

83  F ORM  AT | 2 x,  5A6,  1 7 , 2 X, 6(17 , A 2 ) ) 

WRITE  (6,5575)(SWING(II),II:l,IN),W27 
5575  FORM  AT!  •LINGREO.wTS.ITOTAL/  GRAM  ATOMS/  CHAMBER/  EXHAUST  RESULTS/ 
♦PERFORMANCE  *//!7F  10.5)  ) 

WRITE  (6  ,301)  (ALP ( I) , A SPEC! I ) ,1=  1,1 S ) 

JC1  FORMAT  I / 5 1 F 1 C . 6 , 1 X , A 2 , 1 X ) ) 

IF  <KP! 2 ) .NE.  1)  GO  TO  28 
IS  r IS  ♦ 1 

2 5 IF  <LE  .NT.  1 ) GO  TC  29 

IF  ( IRUN  ,E  0.  o)  GOTO  2. 9 
0 0 JO  I : 1,1  HUN 

3 o READ  (5,1) 

WRITE  ( 6,33) 

IRUN  r n 

33  FORMAT!/*  AT  ThIG  POINT  THE  PROGRAM  WILL  ATTEMPT  ThF  NLXT  RUN.*) 
25  RETURN 
E NO 


SUBROUTINE  RANMIR,Y,N) 

COMMENT.  RANKS  VECTOR  Y If,  DESCENDING  ORDER,  RANKINGS  APPEAR  IN  IRII,1). 
DIMENSION  X <200) , Y<2.00),  IR(200,2) 

00  1 I = 1 ,N 
IR( I ,2)  : I R ( 1 , 1 ) 

1 XU)  = AMAXl(YII),  , L ) 

DO  4 I : 1 ,N 

S : “1,0 

DO  3 J - 1 ,N 

IF  (S  - X(U))  2,3.3 

2 IR(I  ,1)  s J 
S = X(J  ) 

3 CONTINUE 

J : IRC  ,1) 

4 X(J)  = *1.0 
RETURN 

END 
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SUBROUTINE  REACT(TE) 

COMMENT,  This  routine  COMPUTES  THE  STOICHIOMETRIC  coefficients  and  log  eouilieri 
C UM  CONSTANTS  for  all  reactions  IN  TERMS  of  the  current  basis. 

CCOMMON  1112,12),  KR(iO),  AMAT(tO,12),  VIATIC),  ASPECU2),  IN,  IS* 
iFIE(ir,6),  IE(10,6»,  A LP  ( 1 2 ) , W 2 7 * N,  BL0KU0.5),  UH)10>,  RHGllO), 

21  SERI  (10  I,  UATcUrt,  W116),  H43,  IG,  NP , VNT(2ul>,  W47s  NAME,  SER 
OCOMMON  /1BRIUM/  TL(2U0,2),  TU)200,2),  U3(200  ),  VNU(2Un,12>,  OA, 

ITAU,  H(?uO>,  S[)I2C0>,  Y ( 200  > , JC  , IR(200,2),  OMUdUC),  VLNK  liOO  ) , 

2I0J ( 12 1 , RA (20U,2 ) , KBI20P,2>,  RC(200,2>,  R0(2U0,2>,  RE(2no,2», 

3RF(2Q0,2»,  CH  (*0U  , 2 ) , JM  , W48,  CP,  FN,  0(12,200),  SPECIE(200) 

CALL  SLI TET (1 .KQUTFX  > 

60  To< 2i,31> .kOOCFX 
21  00  U K : 1 ,IS 
DC  r \ J i 1 ,N 
VNU  : j,K  ) = 0.3 
DO  1 I s 1,IS 

1 V NU  ( U ,K  > = VNLMJ.K)  ♦ A(I,KI*C(I,J> 

IF  ( ABS  ( VNU  (J,KH  - .0051)  10,10,11 

10  VNUt  J,K  ) S 0.0 

11  CONTINUE 

.31  V A : 1./  1.9871/H 
00  3 1 5 1 ,N 

ve  = n.o 

00  2 LS  = 1,IS 
IF  (VNUII.LS))  17,2,17 
1 7 J = IOJ(LS) 

VB  = VB  * VNU (I,LS)*GMU( J) 

2 CONTINUE 

VLNK  (I)  - V A* ( OMU ( I ) - VB) 

3 CONTINUE 

IF  (KPUV)  -D  7 , V , 7 
V WRITE  (6,5) 

WRITE  (6,6) (VLNK (II,  I : l.N) 

WRITE  (6,81 (IOJ(I),  I = 1,IS) 

& FORMAT  ( 10 ( 5X  * 17)  ) 

5 FORMAT  '22HOLOGS  OF  EOUIL  CONST, S) 

6 FORMAT  ( 1H  1PE11.R,  9F12.4) 

7 RETURN 
END 


SUBROUTINE  S BAL  (TE,  PR,  HE,  SYSENT,  TCH,  LL ) 

OCOMMON  A (12 ,12 ) , K R ( 20 ) , AMAT(1P,12),  UAT(12>,  AS  PE  C I J 2 ) , IN,  IS, 
IF  IE  1 10, 6 ) , IE ( 10 , 6 ) , A LP ( 12) , U27,  N,  BL0K(1Q,5),  0H(10),  RHO(IO), 
2ISERK10),  WATE(IO),  Ulli),  W43,  IG  ♦ NP,  VNTI2UI),  HOT,  NAME,  SER 
OCOMMON  /10RIUH/  TL(2C0,2),  TU(200,2),  W3(200),  VNU(200,12),  OA, 
ITAU,  H ( 2 UO ) , 50(200) , 7(200),  JC , IR(200,2I,  DMU(  200),  VLNk(2C0), 
21 OJ ( 12 ) , RA (200,2 ) , RB(200,2),  RC(200,2),  PD(2uO,2).  R£(200,2), 
3RF(200,  2 ),  CH ( 200 , 2 ) , JM,  W48,  CP,  FN,  C(12,20u),  SPECXE(200) 
COMMON/SCPATC  /HN (200,2) 

236  FORMAT  ( 11H0RESULT S NO  DAMN  GOOD  ) 

DIMENSION  F AC (2 ) 

FTU  = TCH 
FTLS75. 

LIM  = 20 

86  CALL  EQUiL(TE  »PR,HE,INTR ,LL  > 

89  CF  : FAC  (LL*1  ) 

00  15  J ~ l, LIN 
CALL  SL I TET ( 3 ,KOOPF  X ) 

GO  TO) 4115 ,210) ,KUCOFX 
21 u IF  ( ENT R - S7SENTI  211,18,212 
21  1 FTL  : TE 

FLP  = VN  I (NP) 

SLP  = ENTR 
DO  70  L : l.N 
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70  HN  (L  ,11  : VN1  I L ) 

GO  TOM  15 

212  F TU  : TF 

F UP  : VN  T(NP) 

SUP  : ENTR 

00  71  L : 1 , N 

7 1 HN(L ,2)  : VNT  <L) 

511 5 CF:  A MAX  1(1 ,0,CF) 

CF  = AM  INK  16.  u,  CF) 

VO  : (SYSENT  - EN  TR I /CP/ CF 
OT  : TE  * VO 

IF  (VO)  131,113,133 
13 1 OT  = TE*  (EXP(VO)  - 1.0) 

133  OT:  AMINKOT,  ,5*<FTU-TE)I 
OT:  AMAXKOT,  .5* ( F T L*TE  1 1 
13  7 TE  : TE  ♦ DT 
HENT  = ENTR 

IF  (FTU-FTL  .LT.  2.)  GO  TO  21 

IF  (APS < SYSENT-ENTR ) /SYSENT  ,LT , .0001)  GO  10  18 
CALL  E0U1L  (TE,PR,HE  ,E  NT  ft , LL  ) 

15  CF:  <(EN  TR-HENT)/ (CP*ALQti(TE/(TE-t>T  > )>  ) 

1 7 HRITE  (6  ,236) 

21  VA  : ISUP-SYSENT)/(SUP-S<lP) 

VB  = ISYSENT-SLP)/(SUP-SLP> 

CP  : 0. 

00  22  L : 1 , N 

CP  : CP  ♦ VNT  <L)*Y(L  ) 

IF  (LL  .NE.  1)  GO  TO  18 

22  VNT(L)  : VA*HN(L,1)  « V6*HN(L,2) 

18  HE  « HE  + TE*{SYSENT  - ENTR) 

FACILL* 1)  : CF 

RETURN 

END 


SUBROUTINE  SEARCH  ILE  ) 

C . . . . TAPE  SEARCH  ROUTINE  FOR  THERMO  DATA. 

OCOMMON  A (12,12),  K R ( 20  ) , AMAT(10,12>,  JAT(l’),  AS>PLC(12),  IN,  IS, 
IF  IE  (10,6),  IE  ( 10 , 6 ) , A LP  ( 12  ) , W27,  N,  BLOKUC.S),  OH(10),  RHO(IO), 
21 SER  1(10),  VATlIID,  U 1 « 6 1 , V43,  IG  , NP,  VNT(2Gl),  W47,  NAME,  SER 
OCOMMON  /IBRIUM/  TL(2G0,2I,  TU(200,2),  W3(20n>,  VN U( 200 , 1 2 ) . OA, 
1TAU,  H ( 2 uO ) , SO ( 2 00 ) , Y(200),  JC,  Ifi(200,2  ),  0MUI20P),  VLNK(200>» 
2I0J(12),  RAI200.2),  RB ( 200 , 2 ) , RC(200,  2),  R0(2u0,2),  RE(200,2), 

2R  F ( 2 00 , 2 ) , CH ( 200 , 2 ) , JM , V48,  CP,  FN,  C(1  2,200),  SPECXE(200) 
INTEGER  S 

1 FORMAT  ( 1H  A6 , 16 ) 

4 FORMAT  ( J4H  0 HARK.  NO  COMBUSTION  SPECIES  FOR  Ab,14H  REVISE  PEPAuX) 
IF  (KR(2)  ,NE.  1)  GO  TO  10 
IS  : IS  *1 
J AT ( IS  ) : 0 
ALP  (IS)  : (J . 

1 U NP  : 1 

CALL  TAPLB  <1,U,U,0) 

DO  99  LIH  : 1 ,777  1 
009  I : 1 ,IS 

9 C(I,NP)  : 0. 

CALL  TAPEB  ( 2 , NP , KHASE,  S) 

IF  (KHASE  .LT.  0)  GO  TO  100 
C ....  SEE  IF  SPECIES  BELONGS  TO  EIEMEN1  GROUP. 

IF  ( IE ( 1 ,1)  . EG . 0 ) GO  TO  99 
15  00  18  I : 1,7 

IF  ( IE(  1 ,1)  )16,19, 16 
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16  DO  17  J = 1,  IS 

IF  (1E(I,2)  .NE.  JAT(„)>  GO  TO  17 
C ( J , NP  ) - IEtl.ll 
GO  TO  18 

17  CONTINUE 
GO  TO  99 

18  CONTINUE 

19  CONTINUE 
23  NP  : NP  *1 

IF  (KHASE  .NE.  11  GO  TO  98 
IG  = NP  -1 

98  IF  (NP  ♦ LT.  20U1  GO  T.  99 
WRITE  (6,5) 

5 FORMAT  (51H0N0.  OF  COMBUS.  SPECIES  EXCEEDS  PROG.  LIMIT  OF  200  ) 

99  CONTINUE 
100  N : NP  -1 
REWIND  II 
00  SC  I - 1,N 
W 3 ( I 1 : SO. 

DO  50  J - 1,IS 

50  W3SI)  = .3(1)  - SOO'  AES(C(  J,  I)  II 
DO  51  J ” 1,IS 
H (J  1 = L v 
, DO  5 l I - 1 , N 
S 1 H (J  1 : H IJ)  ♦ ABS  (C  I J,  II  ) 

DO  53  J : l.IS 
IF  ( H ( J ) 1 52,52, 1 3 

52  WRITE.  ( t,4  ) * SPEC  ( J 1 

1 LE  = 1 

53  CONTINUE 

IF  ( KP  ( 8 1 .NE.  0)  .RITE.  (6i  1124)  (SPECIE!!!  ‘T-l,Nl 
1124  FORMAT  ( •OCOHPLtTF  SPECIES  LIST  FOLLOWS  •/(  iX  , 1 1 Ab  ) I 
RETURN 
END 


SUBROUTINE  SETUP ( X , X MI N, XMAX , J) 

COMMENT.  THIS  ROUTINE  DETERMINES  THE  MAXIMUM  AND  THE  MINIMUM  CHANGE 
C ALLOWABLE  IN  RE‘CTICN  COORDINATE  J BEFORE  NEGATIVE  CONCENTRATIONS  ARISE. 

C IT  ALSO  SETS  UP  THE  FUGAC.ITY  COEFFICIENTS  FOR  REACTION  J IN  X(J). 

DIMENSION  X (30) 

OCOMMON  A (12  ,12 ) » KR ( 20 ),  AHAT(10,12I,  JAT(12),  ASPECU2),  IN,  IS, 

IF  IE  ( 10 , 6 ) , IE(10,fc).  A LP  ( 12  > , W27,  N,  BL0M10,5),  DH(IO),  RHO(IO), 

21 SER I (1 ^ ),  WATE(IO),  Ul(6>,  W<*3,  -G , NP,  VNT(20l).  W47,  NAME*  SER 
OCOMMON  /IBRIUM/  TL(2D0,2),  TU(20Q,2),  W3(20,>,  VNU(2Q0,12),  0*. 

1TAU,  H( 2C0)  , 50  f 2CQ ) , Y(200»*  JC  , 1R»20D,2),  DMU(200),  VLNM200), 

2I0J ( 12)  , R4 I 20C,2 I , RE  (200,2)  , RC(2D0,2),  R0(2u0,2)»  RE(200,2)t 
3RF  ( 200 , 2 ) , CHI20U.2),  JM , W48.  CP,  FN.  C(12,2CC!>,  SPtCIE(2G0) 

XMAX  = . inoOOOOODE *16 
X Ml N lOOOOODOOE  + K 

DO  9 I : l, IS 
X (I  I r 0. 

IF  IVNUIJ.l)  . LO . o.)  GO  TO  9 
X : »0J(1> 

VO  - VNT(K) 

IF  (IG  .LT,  Ml  GO  TO  6 
4 XCl  r VNU(J.I) 

( I F ( VNU  ( J .1 ) I 3,9,7 
7 IWU:  A**  INI  (XMAX  , VC /WMJ  (U.  I I > 

GO  TO  9 

3 IMlN-  »•***!  (*"IN,  «C/V<UIJ,I)1 
9 CONTUSE 
t r 

l*Z 
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SUBROUTINE  SLTTEId) 
DIMENSION  L IT  U> 

IE  Id  .Eli.  0>  60  TO  9 
LIT (d)  = 1 
68  TO  99 

9 00  l C 1 = 1,9 

1C  LIT  (list! 

GO  TO  99 

ENTRY  SLiTETIJ.Kl 
K -2 

IF  < LI T Id)  .EO.  0 ) 00  TO  99 
K:l 

LIT  I d) : 0 
99  RETURN 

END 


SUBROUTINE  STOICHILEI 

COMMENT  PROPELLANT  STOICHIOMETRY  ROUTINE  CALLED  BY  PUTIN. 

COMMENT.  ALIASES.  U!=  UN BURNED  BERYLLIUM,  U2  : UNBURNEO  BORON, 

U 3 = UNBURNEU  MAGNESIUM,  U4  S UNBURNED  ALUMINUM, 

U5  r UNBURNEO  CARBON,  OON,T  USE  U6  . THESE  INERTS  MELT  AND 

EVAPf  R ATE  BUT  00  NOT  REACT.  GAS  SPECIES  MAY  BE  ELIMINATED  FROM  PI.~.*HX 

TAPE  TO  PREVENT  EVAPORATION. 

OCOHMON  A It2  .12),  X R I 20 ) , AMAT(10,12>,  UATI12),  AS  PE  C 1 1 2 ) , IN,  IS, 

IF  IE  1 10, 61,  IE  1 10, 6 ) , A LP  1 1 2 ) , U27,  N,  BLOKIlO.S),  DH I ] Q) , RH0I10), 

2- SER 1110),  UATtllf),  U1I6),  b«3,  IG , NP,  VNTI2CI),  U47,  NAME,  SER 
3, FLO  OR, I TAG  1 100 1, WIN  O'  10) 

DIMENSION  SYMBI10C) 

DIMENSION  FE  (10,6) 

EQUIVALENCE  (FE(1,1),  IE  1 1 , 1 ) ) 


OAT  A 

ISYMBII),  I 

= 1, 

IDO)/ 

60QHH 

HE 

1LI 

BE 

B 

C 

N 

0 

F 

NE 

NA 

MG 

AL 

2SI 

P 

S 

CL 

AP 

K 

CA 

SC 

T T 

V 

CP 

3MN 

FE 

CO 

NI 

CU 

ZN 

GA 

GE 

AS 

SE 

BP 

9KR 

RB 

SR 

Y 

ZR 

NB 

MO 

TC 

RIJ 

RH 

PD 

SAG 

CO 

IN 

SN 

SB 

TE 

I 

XE 

CS 

BA 

LA 

6CE 

PR 

NO 

PM 

SM 

EU 

GO 

TB 

DY 

HO 

ER 

7TM 

YB 

LU 

HF 

TA 

W 

RE 

OS 

IR 

PT 

AU 

8MG 

7 L 

PB 

B I 

PO 

AT 

RN 

FR 

R A 

AC 

TH 

9PA 

U 

NP 

:j  . 

U5 

U1 

U2 

UJ 

U 9 

FM 

1 FORMAT  IBHOWHf  T,S  A6  ) 

2 FORMAT  I / ’ INGREDIENT  CARD  *12,’  GOOFED  UP.*) 
00  It  I i,lUO 

11  I TAG  ID  0 

00  19  I = 1, IN 

DO  18  d : 1,6 

IF  (FIE  I I,d  ) ) 19,19,12 

12  DO  17  L = 1,1U0 

IF  IFEtl.J)  - SYMFID)  17,13,17 

13  I TAGIL)  R 1 
IEll.J)  : L 
GO  TO  18 

1 7 CONTINUE 

WRI’E  I 6,1)  I El  I , d ) 

9 URI , £ I 6,2  ) 1 
LE  = 1 
6 CONTINUE 
i.  9 CONTINUE 
IS  = l 

00  IS  I = l.luO 
IF  IITAGITII  js.25,.0 
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2 0 A$HEC(I  S I = S YHB ( I ) 

J AT  I IS)  : I 
IS  = IS  *1 

25  CONTINUE 

IS  = IS  - 1 
00  31  I = 1 , I N 
00  26  J = 1,12 

26  AHAT(I.J)  S 0. 
dc  :v  k = i, i j 
DO  ?8  J : 1,6 

IT  < IE  < I ,J>  - oA  T ( K ) ) 28,27,28 

27  AHA  T (I  , K ) : Flt(l.J) 

GO  TO  2« 

26  CONTINUE 
29  CONTINUE 
31  CONTINUE 
RETURN 

End 


SUBROUTINE  TABLO ( 1 1 , jJ.KK) 

COMMENT.  WHEN  THE  bASIi  IS  NO  LONGER  OPTIMUM,  THIS  ROUTINE  CHANGES  IT  BY 
C THE  TAblEAu  METHOD  OF  LINEAR  PROGRAMMING. 

C COM  MON  A (12  ,12  ) , KRUO),  AMAT(I0,12>,  J ATt  12  ) , *SPEC(12),  IN,  IS, 

IE  IE ( ID  * 6 ) , IE ( 10, 6 ) , A LP ( 1 2 ) , m2  7,  N,  BLOKI10.5),  DHIlQI,  RHO<10>, 

21  SER I ( 1 n I , WATt.(lC),  U 1(  6)  , W43,  I«  , NP,  VNTUUll,  W'i7,  NAME,  3ER 
DCOM MOM  /IPRIUM/  11(200,2),  TU(20C,2>,  U3I200),  VNU(200,I2>,  C|A, 

1TAU,  H ( 2 CO ) , Sud-'o),  Y(200),  JC,  IR(200,2>,  OMUdUO),  VLNKdOO), 
2I0JU2),  RA  )20u  ,2  ) , RB<200,2>,  RC<200,2),  R0(2U0,2),  REU00,2), 

3R  F ( 2 00 , 2 ) , CH  dOu , 2 ) , JM  , W48,  CP,  FN,  0(12,200),  SPECIE(2U0) 

4,LL ( 200  ) 

COMM  ON /HOON/TS TEST  ,TE 
104  00  19  L : 1 , N 

IE  (LL(L)  , L T » 0)  GO  TO  T9 
IF  (L  .EC.  JJ>  GO  TU  19 

IF  ( AB  $ ( vNU  ( L » K K ) ) , LT  . .0001)  GO  TO  19 

VA  : -V  N U ( L ,KK)/V  NU(  uJ ,K  K ) 

DO  IS  M : 1, I0 

16  V NU  < L , M ) z VNUtL.W)  ♦ VA  *VNU ( JJ , M ) 

VNU (L,KK  ) : -VA 
00  10  M r 1, IS 

IF  ( ABS < VNU (L  ,M) ) . G T • .00001)  GO  TC  16 

VNU(L,H ) - C. 

16  CONTINUE 
19  CONTINUE 

DO  2C  M : l, IS 
2U  V NU  ( JJ , M ) : 0. 

VNU(JJ.KK)  = 1. 

IOJ<KK)  : JJ 
LL(JJ)  = 0 
CL ( 1 1 ) = 9 
CALL  REACT(Tf) 

IF  (KR( la)  .NE.  I)  GO  TO  99 

WRITE  (6  ,499) Ii,jJ,*4, SPECIE ( II ) .SPECIE (JJ  ) 

999  FORMAT  (315,  3x , »fe,  • REPLACED  BY  *,  A6) 

99  RETURN 
END 
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SUBROUTINE  TAPtB  ( I*  , l,  PHASE,  S) 

COMMENT.  THIS  ROUTaNE  BUFFERS  THE  INPUT  FROM  THE  LIBRARY  TAPE.  THIS  SPEEDS 
C INPUT  ON  ThE  UN  I V AC  oUT  MAY  SLOW  IT  ON  A GOOD  MACHINE. 

OCOMMON  A(12,1?J,  (.RUD),  AMATUO,  12  > • JAT112I,  AS  PE  C 1 12  ) , IN,  IS, 
lFIE«ir,6>,  IE  ( aO , f ) * ALPI12I,  W 27 , N,  BLOK  ( 1 5 > , UH(IO),  RHOdGIt 
2ISERK10),  WATc.ll:>,  W 1(  6)  , W43,  IG  , NP,  VNTI201),  W47,  NAME,  SER 
C COR MON  /IBRIUM/  TL(2J0,2),  TU(200,2  >,  W3I2CP),  VNU(2U0,12>,  «A, 

1TAU,  H(2lD>,  SbllTu),  YI2D0),  JC,  I R ( 200 , 2 ) , OhU(2uO),  VLNK ( 2^0 ) » 

2 IOJ ( 12  > , RA(2P«.,2),  KB  (2  00,  2 ) , PC(200,2),  R0  (200,  2>,  REUDU.c), 

3RF ( 2C0, 2 ) , CH I 200 , 2 ) , JM , W48,  CP,  FN,  C(12,2DU>,  oPLCIE < 200) 

DIMENSION  BIN (20,35) 

GO  TO  ( 11,2  1)  , IW 
11  REWIND  12 
I = 20 
GO  TO  99 
2 11  = 1*1 

IF  ( I . L I.  21 ) GO  TC  31 
I = 1 

REAC  (12)  ( ( B I N ( j , k ) ,K  = 1, 35  ),  Jsl,  2tl) 

3 1 PHASE  = BIN (I , 1 ) 

SPE  C IE  ( L ) = BIU(I  ,2) 

S = BIN (1,3) 

00  41  J = 1,7 


K = 

3 ♦ 

2*( J-l) 

I E ( J 

.1) 

z 

BIN(i-K*l) 

4 1 I E ( J 

.2» 

- 

B IN  ( 1 , K ♦ 2 ) 

RAIL 

,1) 

2 

BINCI.1S  ) 

RB(L 

,1) 

Z 

BIN  11, IP) 

RC(L 

.1) 

Z 

B IN  ( 1 ,2  i ) 

RD(L 

.1) 

Z 

BIN  ( 1,2 1 ) 

RE(L 

,1) 

z 

BIN (1,22) 

RF(L 

.1) 

z 

BIN  (1,23 ) 

CHiL 

.1) 

z 

BIN  (1,24 ) 

TL(L 

.1) 

z 

BIN (I, 21 ) 

TU(  L 

.1) 

z 

B IN  (1,2*. ) 

RAIL 

.2) 

z 

B IN  ( 1 , 2 7 ) 

R B ( L 

.2) 

z 

B IN  ( i , 2 c ) 

R C ( L 

.2) 

z 

B IN ( I ,2C  ) 

ROIL 

,2) 

z 

6 in ( i , in ) 

RE(L 

,?> 

z 

BIN (1,31  ) 

R F ( L 

.2 ) 

- 

B IN  I 1 , 3 2 ) 

CH(L 

,2) 

- 

BIN ( a, 33) 

T'.IL 

,2) 

z 

6 IN  < 1,34  ) 

T U ( L 

,2) 

- 

B IN  < 1 ,35  ) 

99  RETURN 
END 


SUBROUTINE  THERMO(TE,HF,ENTR) 

COMHENT,  COMPUTES  SYSTEM  ENTHALPY,  ENTROPY  AND  HEAT  CAPACI1V 

OCOMMON  A (12 ,12 ) , KR(2C),  AMAT(10,12>,  JAT(12),  ASPL0(12>,  IN,  IS, 
IF  IE ( ID , 6 ) , IE ( 10 , 6 ) , A LP ( 1 2 ) , W27,  N,  BLOK(JU.y),  UH(tO),  RH0I10), 
2ISERII10),  WATEdD,  W 1 1 6 1 , W43,  IG  , NP  , V NT  ( 2 l)  1 ) , W47,  NAME,  SCR 
OCOMMON  /IBRIUM/  TL(2C0,2),  TU(200,2),  W3I200),  VNU|200,12),  OA, 
1TAU,  H ( 200) , S 0 ( 2 C 0 I , YI200),  JC.  IR(?0C,2),  C'MUI2oO>.  VLNKI200). 
21 OJ ( 12 ) , RA (200,2  ) , RB ( 2 00, 2 ) » RC(2C0,2),  RD(2C0,2),  PE(200,2), 

3R  F ( 2 GO , 2 ),  CH ( 200 , 2 ) , JM , W48,  CP,  FN,  CI12.20U),  SP£CIE(?00) 

VH  = O.P 

VS  = 0.0 

CP  =0.0 

DC  11  I = 1,N 

CP  = CP  ♦ VNT ( !>•» (1  I 

VM  : VM  • v NT 1 1 ) • h 1 1 | 
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11  VS  = VS  ♦ V NT ( 1 ) * $0 ( I ) 

FN  : 0.0 

VSM  : 0 . C 

DO  12  I s 1,16 

I F ( V NT  ( I ) ,LE.  0.150  TO  12 

FN  : FN  ♦ V NT  « X » 

VSH=  VSM*  VNT<i»*ALOG<  VNTdi  ) 

12  CONTINUE 

VSM  r l.S8?l*(V$M  ♦ FN*V  NT ( NP ) ) 
HE  = VH 

ENTR  = VS  - VSM 

RETURN 

END 


SUBROUTINE  TSALT(TE,P»,HE,ENTR,PUPI,PL0I> 

COMMENT  . This  SUBROUTINE  COMPUTES  COMPOSITION,  PRES  SUPE  AND 

C GIVEN  TEMPERATURE  AND  ENTROPY.  IT  IS  CALLED  BY  TSBAL. 


COMMON  A (12,12),KR(20) 

COMMON/MOON/TSTEST 

T ST  E ST  r -Z17.;9I* 

PLO  : PLul 

PUP  - P U P I 

PR: (PUP ♦ PLO  )/?. 


DO  22  J.  = 1 ,20 

CALL  E0UIL(TE,PR,HE,SE,11 

IF  (KP(UI  ,NE.  0>  WRITE  (6,9  )JI  , TE,  SE,  PUP,  PLO 
9 FORMAT  (•  TSBAL*Ir ,Fo.i,3F12. J) 

IF  (SE  .57.  ENTR)  PL0=PR 
IF  (SE  .LT,  ENTR)  PUP=PR 
p Ps ( PUP ♦ PLO )/2. 

166  IF  ( (PU—PLO) /PLO  .LT.  .00008)  GO  TO  23 

22  CONTINUE 
WRITE  (6  ,1) 

1 FORMAT  ( * TSALT  STOP') 

CALL  SLITE  (3) 

23  TSTEST  s 0. 

RETURN 

END 


ENTHALPY 


SUBROUTINE  TSBAL(Tt,PR,HE,ENTR,PUPI  .PLOD 
COMMENT.  THIS  SUBROUTINE  COMPUTES  COMPOSITION,  PRFSSURE  AND  ENTHALPY 

C GIVEN  TEMPERATURE  AND  ENTROPY.  IT  IS  CALLED  BY  TSBAL. 

OCOMMON  A (12  , 1 2 ) , KRUn),  A H A T ( 1 0 , 12  ) , JAT(  12  > , AS  PL  C 1 1 2 ) , IN,  IS, 
IF  IE ( IP , 6 ) , IE(iP,(),  A LP ( 1 2 ) , W 2 7 , N,  BLOKliP.S),  UH»)0),  RHO(IO), 
2ISERH10),  WATE(IC),  W X<  6 > » W«3,  IG  , NP , VNT(2ut),  VR7,  NAME,  SER 
CCOMMON  /1BRIUM/  TL(2UO,2>,  TU(200,2  ),  W 3(200).  V,N  U ( 200 . 1 2 ) , «»t 
iTAU,  H ( 2 LP ) , S 0 ( 2 S'  0 ) , Y(20D),  JC  , IR(20P,2),  0MU(2uP),  VLNK  ( 2 rC  ) » 

2 1 OJ ( 12 ) , PA (205.2  I » RP  (2  00 » 2 ) , RC<2r0t2)»  RD(2tD,2),  PE(2PU,2), 

3R  F ( 2 GO  , 2 I » CH  ( 200 , 2 ) , JM  , W46,  CP,  FN,  CI12,20L>.  SPtCIE(20G) 
DIMENSION  X (12) , Xh( 121 
6 FORMAT  (I5.F10.0.  F12.3) 

9 FORMAT  ( IP  10E13.4  ) 

KRI18)=1 

PR=.5*(PUPI  ♦PLOD 
1739  CALL  GIBbSI  T£  ) 

CALL  FIXBIS 
12  DO  38  J ~ 1.1S 
X iJ ) 7 ”»• 
l»(Jl  : v. 

00  31  17  l.N 

Ir  VCIJ..I  Ui.  L.l  NO  IP  31 
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XM(J)  = AHA  XI ( VNT ( 1 ) f XM(J>> 

X (J)  : X1J)  ♦ C<  J,  I ) *V  NT  ( T ) 

31  CONTINUE 

IF  I ARS ( ALP ( J ) - XIJ))/XMIJ)  .LT.  .00001)  GO  TO  3b 
CALL  SLITEU) 

GO  TO  3« 

36  CONTINUE 
39  CALL  DEFIOJ 

CALL  REACT  (T  E ) 

00  211  1 = 1 ,1- 
211  W3(I)  - 60,o  -VLNK(I) 

CALL  PANKIIR, W3,N) 

1 1 00  22  JC  = 1 ,.0 

PR: AHAX 1 (PLOI  ,PR) 

PR=AMIN  1 (PUPI  , PR ) 

CALL  TWITCH(P9,Q) 

CALL  THERMO  ( Tt  ,HE  , S TR  Y) 

VX  = l. 

IF  (JC  .LT.  5)  VX=2. 

IF  (JC  .LT.  10)  vx:«. 

PR=PR*EXPI-(ENTR-STRY)/(FN*VX)/1.9871) 

CALL  SLITET (4  , KOO  r F X ) 

GO  TO ( 146,17 ) , K o CO  F X 
14b  IF  (KRO  21-1)  15,  14 ,15 

14  WRITE  (6  ,8) JC,TE,FR 

WRITE  (6  ,9)  (VNTIl  ) , I z 1,N ) 

15  00  23  ICC  S 1,3 
25  CALL  TWIT CH  (PR  , 1 ) 

CALL  THERMO  ( Tt  * HE  , S TP  Y ) 

PP:PR*EXP(-(ENTR-STRY) /i FN*VX )/ 1 .98 71) 

CALI.  SLITET  <4  .bCOCFX  ) 

GO  TO  I 22,22)  ,hOu'Fx 

2 3 CONTiNUF 
22  CONTINUE 

K R ( lt)  = " 

16  CALL  TSALTI TE ,FR,^E ,ENTR ,PUPI  ,PLOI) 

1 7 VNT  (NP  ) : E XP  < VNT  ( NP  ) ) 

RETURN 

END 


FUNCTION  Tw  ID  IX  I 

COMMENT.  COMPUTCS  T HE  EQUILIBRIUM  FUNCTION. 

DC  OHM  ON  A (12 ,12),  KRUO),  A M A T C 1 P , 1 2 ) , JATI12),  AS  PL  C I 12  ) , IN,  IS, 
IF  IE  I 10 , 6 ) , lEt.C.t),  A UP  I T 2 ) , W27,  N,  BL0KdU,6),  DHI10),  RHO(IO), 
2ISERIH0),  UATcUo),  WH6),  W43,  IG  , NP,  VNT  (201)  , W47,  NAME,  SER 
OCOMMON  /ISRIUM/  T L I 2 00 ,2 ) , TUI200.2),  W3I200),  VNUI2C0.12),  CA, 
1TAU,  H(?tO),  SDI2I0),  YI200),  JC,  IRI200.2),  0MUI2U0),  VLNKI200), 
2I0J  < 12  I , PA  (20u  ,2  I , FB(20n,2),  PC(2CC,2>*  RD(2w,0,2),  RE(200,2), 
3RFI2C0.2),  CH  1 200 , 2 ) , JH,  W48,  CP,  FN,  C(12,200),  SPECIEI200) 
DIMENSION  X (30 
VA  : 0.0 
TWIO  = 0.0 
001  1=1,1$ 

IF  <X(I  ) .EO.  U. ) GO  TO  1 
11  V A = V A ♦X(I) 

K = 10JU) 

IF  ( VNT  IK)  .LE.  0. ) GO  TO  1 
111  TWIO:  T W 10»  X (1)*AL0D(VNT(X) ) 

1 CONTINUE 

TWIO  = T b 10  • v A*  V NT  «NP) 

RETURN 

END 
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SURPCUTtl.r  T«nCh(P»,J6l 

COMMENT.  THIS  IS  ThE  n 0 U T I f.€  WHICH  CONwrppES  ON  CHtM  I CAL  COMPOSITION. 

call  to  ay  eoutl. 

OCOMMCN  MUil'Ii  *4(1^1,  AHAT(10,12I,  JATI12I,  ASPtC(12>,  IN,  IS, 
1FIEI1',.6I.  IEUO.M,  A L°  ( 1 2 ) , W 2 7 , N,  BLOKIlL.S),  UH(lC),  RHCI10I. 
.’ISEPHINI,  .lATJUl,  W 1(  6 ) , w4J,  Iu . NP,  VNTIEul).  V47,  NAHF,  SEP 
I,FLOO° 

CCOMMuN  / iBR  IJM  / It  ( 2 Ln ,2  I , TU  I 2PC,2  I , W3(2CO),  VI,  U t JUP  , 1 2 I , 0 A , 
1TAU,  H(?WP),  S U ( 2 ''d  I , V < T ^ Q ) , JC,  I P ( ???, 2 > * DHU(2iiCi|,  VLNKC2''C), 
2I0JC1’),  PA(2iu,2),  h«(2jn,2»,  RC(2nc,3),  RP<2_n,2),  PEI£"0»2l, 
3«FirtO,?l,  CH I 2Gu , 2 > , JM,  W 4 8 , CP,  FN,  Ctl2,20t»,  SPECIC(?ur)l 
4 , LL ( ) 

DIMENSION  X IK  I 
IC  : <■’ 

VOO  = JC  -1 

VOO  = ,S  - V00/2U. 

VOO  : A MAXI I.Pj,  VOO  ) 

vc  : "I.  n 

IF  <KR(  171  - *)  4 •;  1 ,4  J2.4DI 

40 1 00  2U0  i - 1 , 1G 
20  u VC  - VC  ♦ VNT ( II 

VNT (NP I : ALOGiPR /VC  I 

402  DO  99  J : 1,N 

IF  ( Lt ( J I .LE.  01  GO  TO  99 

IF  (JO  • I.E.  0 .AID.  LL(J)  .NE.  9 ) GO  TO  99 
KICK  = 0 
VO  = VOO 

7 CALL  SETUP  (X,  XM1I, , X HA  X , J) 

IF  (VNT (d|  .GT.  U. I GO  TO  22 
OX  r - I .00  l*Vl,T  ( j | ♦ FLOOR 
GO  TO  97 
22  CONTINUE 

VA  : VLNMJI  - TwTu  (X) 

VB  : 0 

LL(J)  = 1 

IF  (J.LE.IG)  UO  TO  4 
COHMENT  M A J09  SPECIES  TOLERANCE 

3 IF  (APS(VA).LT.  C.U0C09)  GO  TO  99 

71  IF  l (VNT(J).GT.  » 2 7*1  «E  “7  1 .OR.  (VA.LT.  0.)  ) GO  to  o 

IF  (VNT ( u ) .EO.  FLOOR)  GO  TO  99 
UX  9 -VNT(J)  ♦ FLOOR 
GO  TO  97 

4 IF  (VNT (.1  .EO.U. I tO  TO  44 

I F ( V A*V  NTINPI  • ,LT  • ♦S.IGC  TO  66 
V : EXP i -VA  -VNT( NP I I 
XMMM  : AMINK-aMIN,  XMAXI 

IF  (VNT(J)/XMMH  ,LT,  .01.1  XM A X2 • 0 11 *XMM“ 

IF  t (V«VNT(J) l/XM^M  .GT,  .Til  GO  TO  66 
GO  TO  45 
44  V r FLOOR 
GO  TO  S 

4 5 V - A MAX  1 (V,  FLOUR  I 

5 VTEC  : AcS( 1.  - VNT ( J) /V  I 
COMMENT  MINOR  SPECIES  TCLEkANCE 

IF  ( VT  E 0 ,L  T , .OOC'd)  GO  TO  99 
55  OX  - V - VNTIJ, 

LL( J ) : o 
VNT  S Jl  : V 
GO  TO  8 2 

66  VA:  VA*  ALOGIVNT(J) ) ♦ VNT(NP) 

IF  ( A°  S ( VA  I - ,0U*;u8  ) 99,99,67 

6  7 VB  = 1, C/VN  T<  J) 

600  69  i : 1 , IS 

IF  ( X ( I I I 68 , o9  , t d 
6 o K : 10  J ( 1 1 

VB  : VB  ♦ X (I >*X ( T I /VNT( K) 
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69  CONTINUE 
VF:0. 

IF  (K9(  lot  .EO.  0)  00  TO  8 Q 1 

IF  (J  .Ll.  16)  H=*l 
V$  = SO<J  > 

DO  8 00  1:1  tIS 

K =IOJ(I  ) 

IF  <K  .U.  IG)  H:M  -VNU(J,I) 

aru  vs:vs-vnu(J,I)*sd«k) 

VFXAM*X1(0.,  M/FN/1.9871  * V S ) 

I F ( VF  .CJ.  » 8 * VB ) VFF ;1 ,5 
IF  (VF  .cT.  VBI  VTF-ii 

IF  (VF  .CT,  1 . j*V t I VFF=b. 

V F rVFF*  V F 

IF  ( KR ( 1 2 1 .NE.  0)  NOITE  (6,6021  J,H,VF,VB,PR,V» 
dTi  FORMAT  (tJ6,  11'  6n?.Sl 

am  if  (vm.nl.  o.)  oc  to  72 

7u  Vf>  = .001.0001 
VO  - .999999 
72  OX  : -V  A / (V8  ♦ V F ) 

UX  = A“AX1(DX,  *VU  * V K T ( j)  I 
L L ( J ) : v 

9 7 DXr  AHA  X i(OX,  vO*XMlU 
DX:  AMIN. (OX,  V 0 * X M A X I 

IF  (ABS(CX)  ,LT.  • u 1l t *V  NT ( J ) ) GO  TO  61 
7965  FOPMAT  (J.S.1P  iJfclb.2) 

Be  CALL  SLI  IE  <‘4) 

IC  : 1 

fl 1 V NT (J)  r VN  T ( J 1 ♦ OX 
B 2 VC  : , 9 ^ *VN  T ( J 1 
UO  9o  I = 1 , I a 

IF  <VNU(d,I).E„.  t ,)  bO  TO  98 
97  6 K = IOJ  U) 

V NT  < A ) s VNT(K)  - V N 0 ( J,  I ) ♦ D X 
IF  ( VNT (M  ,GF . VF,  tO  TO  98 

IFIKICK  ,E0.  1 .AND.  V NT ( K ) ,CT.  VD)  GO  TO  9b 

VCrVNT ( K ) 

KICK  : 1 
JJ  : J 

II  : K 
K K Si 

9 o CONTINUE 

IF  (KICK  ,NC.  1)  GO  TO  99 
CALL  TAB10( II ,OJ,KK) 

99  CONTINUE 

10b  IF  (KR(  lil.NE.il  bO  TO  107 
999  V RI  T E (6,88  KLLUJl  , JJ  = 1,N) 

86  FORMAT  ( 1H080ID 
10  7 CONTINUE 
RETURN 
END 


86 


NWC  TP  6037 


Appendix  I 

LISTING  OF  THE  XEP  SUBROUTINES 


The  following  listing  shows  routines  which  modify  the  PEP  program  to  evaluate  gaseous 
detonation  processes.  Only  those  routines  not  common  to  PEP  appear.  XEP  is  run  the  same  way  as 
PEP  except: 

1.  Option  9,  the  input  of  ingredients  by  serial  numbers  is  not  allowed. 

2.  Ingredient  densities  must  be  inputted  as  grams/liter  instead  of  lbs/in'^. 

3.  The  first  pressure  in  the  weight  ratio  card  is  a guess  for  the  detonation  pressure.  It  must 
exceed  the  second  pressure  which  is  the  pressure  to  which  the  detonation  products  are 
expanded. 

4.  A plot  is  generated  by  this  program.  The  plot  is  only  a convergence  check  and  may  be 
deleted. 


*•53? 


***** 


*10#® 
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SUBROUT  INF  HUGO  IP  0 , Mt  , V,  PONE  , TONE  ,H  R ,V0N£  , SOLE  ,HO  Nc.  ) 

0C0MM0N  4(12,12),  ► R ( LC  1 , 4M*T(n,l2l,  JAT(12),  ASPtC(12),  IN,  IS, 
IP  IE ( 13 , 6 ) • IECiC,-)*  4 LP ( 1 2 ) , nil,  H,  BLOMIL.E?,  UHL’C),  KHO I 1 1 ) , 
21 SER  I ( 1 n ) , WATEUO,  Wl(fc),  *43,  16,  NP,  VNT<2„1),  W47,  NAME,  SER 

'iC  OHM  ON  /1PRIU*/  1113^,21,  TUI20C.2),  W3(2Pn),  «N  U 1 ’0?  , 1 2 ) , Ql, 
1TAU,  « < 2 -0  * , Su(i'u),  YIZ^O),  JC,  I R I ?rC,  2 ) , CmU(?.,P),  VLNK(iCC), 
2IOJU2),  RA  (2  n J , & ) , RP  12  ITT , 2 ) , PC(i0C,2>,  RO(2l',2>,  RE(23G,2), 

3R  F ( 2 CO  , 2 ) « CH(-0j,2>,  JM  , W48,  CP,  FN,  C(12,20U>,  i»PE  Cl  E ( ? 30  ) 

4 , LL (200  ) 

TUPP:6C0b«0 
TL0W-29P  .16 
KR( 17)  : 1 

VNT(NP)  A ELOG  ( 1,  S 6 7 1*  TONE /V  ONE  ) 

CALL  EOUiL (TONE, PONT ,HONE,SONE,1) 

PONE  = F N*V  NT ( NP ) 

2 nHE-HONL-(  V0Nl«Y  )*  ( PP  -PONE  > /2.0 
2P  = 2 

DO  0 J = 1,23 
CF:  AMA  X i ( 1 ,0  , CF  ) 

CF  : AKIlvK  16  .u,  CF  I 
CV  = CP  - 1 .9  8 7 1*  F N 
OELTAT  : *Z/CV/CF 

DELT  AT:  AhlN  KDtLTS  T , .R*(  TUP P -TONE  ) ) 

CELT  AT  : A MAX IIOuLT i T , .K  *( TLQW -TONE )) 

TONE  : TCNE*OElTAT 
IF(A  LS  (0  tLT  AT  )-.U'1l)n, 58,88 
88  VNT(NP)  : ELOG  ( 1 • r/  o 7 1*10NE/V0NE  ) 

4 CALL  EQUiLI  TONcPGNt  ,HONE»SONE,  1 ) 

PONE  : FN*VNT(NP| 

2:hE-h0NL-(V0NL*Y  )*(  PR  -PONE  1/2.0  1 

CF  : ( (2P-2 )/ (LV*PtLTAT) ) 

2P  : 2 

CALL  SLI1ET ( 3 , KPC’F  X ) 

GO  T0< 7C,74) .KCOrFX 
74  I F < 2 )7  2 , 10,  71 

71  TLOWiTONt 
.60  TO  70 

72  TUPP :T0  N E 
7 U CONTINUE 

8 CONTINUE 
10  HONE  : HONE  ♦ c 

SONE  : SONE  ♦ Z/TCNE 
KR( 17)  : n 

IF  (V  ,Fw,  VONt)  uO  to  9 n3 

HRS ( (VONt/V )**2*HF-NtNE) /( ( W ONE / V I* *2-1 .C) 

VCj  RETURN 
END 
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SUBROUTINE  PUT  IN  (LE> 

H COM  MON  *112,12),  WR(ID),  AH  AT (IP  , 12  ) , JAT(  12),  AS  PLC (12 ) » IN,  IS, 
IF  IE  I 1C  , 6 ) , IE  ( AO  , 6 ) , A Lp  ( 1 2 ) , W27,  N , BLOK (lo, a),  uHdO),  RHCdC), 
SrSERIIlC),  UATEtif  t,  W 1 ( 6 ) , W43,  16,  NP , VNT(2bl>,  W47,  NAME,  SEP 
COMMON/ I CINFO/AAAA  (6  ) 

COMMON  I TAG  ( 1 Mu)  , WING(IO) 

DIMENSION  ATuTllJC),  SwING(lO),  VOUT(IO) 

DATA  IRUft/0  / 

DATA  ( A T wT ( I ) , I a 1 , 1 CD  > / 1 . 0 08  , 4.007,  6.94,  9.0  IS,  10.62,  12.011 
1,14.008,  16.,  19.,  20.133,  22.991,  24.32,  26.9s,  2d. CP,  30.975, 

2  32.066,  *5.457,  39.944,  *9,1,  40. CS,  44.96,  47.9,  50.95,  52.71, 

4 54.94,  55 . 85 , SB. 94,  58.71,  63.54,  63.36,  69.72,  72.6,  74.92, 

5 78.96,  79.916,  67. 8 L,  35.48,  87.63,  88.91,  91.22,  92.93,  95.95, 

6 99  .,  l"i.l,  1*2.91,  1 06  .4  , 107.38,  112.41  , 114.6  2,  life. 7,  121. *6, 

7 127.61,  1’6.9a,  131  .3  , 132.9  1,  1 37  . 36,  138.92  , 14b. 13,  140.9'., 

8 144.27,  147,,  150 .35,  152.,  157.26,  158.93,  1*2.51.  164.94,  167.2 

97,  168.94,  173.  C4,  1 74  .99,  176.  SU,  180.95,  lc3.86,  ld6.22,  t9:’.2, 

1 192.2,  i95.d9,  147.,  226.61,  204.39,  2r?.21,  i^b,99,  210.,  210., 

2 222.,  2 4.3.  , 226.,  2^7#,  232.,  231.,  238,,  237,,  242.,  243.,  247,, 

3 249  .,  2 at.  , 2a4. , 253.  / 

1 FORMAT  (19U,  Al,  A6  , 14,  IS,  15) 

2 FORMAT  (aA6,  6IF3.3,  A 2>  , F7.C,  F6.C,  17) 

3 FORMAT  ( A2F6.6,  Afc,  A?) 

4 FORMAT  I / 1H  34a,  12Ab) 

5 FORMAT  ( 12H  *1  NDRtf'  I E NT  S 70X,  29  H WEIGHT  CAL./u.  DENSITY) 

6 FORMAT  ( i?F  10, o) 

7 FORMAT  ( *H  ) 

a FORMAT  (iH  5A6.1X,  12F5.3,  F9.3,  F1D.0,  F9.4) 

9  FORMAT  (43H2GPAM  ATOM  AMOUNTS  FOR  PROPELLANT  WLICHT  OF  F9.3) 
lb  FORMAT  ( aHO  1 2 1 4 H (A2.4H)  )) 

LE  = n 

IF  ( I P U N ) 19,  * 1,19 

11  READ  (5,1)  ( K R ( I ) , I - 1,19),ISERI(  1),  ISERK2),  IN,  IT,  IRUN 
0012  I - 1,1a 

It  JAT(I)  : P 

DO  13  I - 1,11, 

13  READ  ( 5 , t > (BLuKd.O),  J:  1,5),  (FIEtl.J),  IE(a,J),  J = 1,6), 

1 OH (I),  nHO(I) 

CALL  STOaCH(LE) 

00  14  I S 1,  IN 
W AT F (I  I : 0 . 

DO  1 4 J = 1,  IS 
K r J»T ( o) 

1 4 W AT  £ 1 1 > =WATE(I)  ♦ AMAT(I,J)*ITwT(K) 

CALL  SEARCH(LE) 

REWIND  It 

C THE  NEXT  8 CAROS  CONTROL  THF  SC  4020  OUTPUT  ON  PSEODG  UNIT  16 
19  CALL  CAMRAV  <1  > 

CALL  FRAMEY 
CALL  CAMRAV  (2  ) 

CALL  FRAMEV 

INC  = 1 •"  19/  ( J 0 •»  IN  ♦ IN  + JJ/4) 

CALL  SCO  OTV  (1  , INC  ) 

CALL  LOCSTV  (33,10(  9, 4) 

CALL  MAXFRM  (5  C*0  ) 

IF  ( KR I 6 ) ,NE.  1)  CC  TO  18 
READ  (5,i7) 
nRITE  ( ! o , 1 7 ) 

1 7 FORMAT  (LCH 

1 I 

16  READ  (5,31  Wl ( 5 ) , wl(6>,  (WING(T),  I = 1 , 1 C ) , I SER  1 ( J ) , I SEP  1(4) 
WRITE  ( 6 ,16  ) ( ISEf 1(1),  I = 2,4) 

16  FORMAT  ( 1H1  3A6l 
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IF  (K#UI  ,N£,  1)  GO  TO  20 
IS  l IS  -1 
2 c I RUN  r I RUN  - I 
KR(19)  = I 

IF  (wINGO)  .f».  f!.»  GO  TO  120 
KR( 19)  = C 
00  2 1 J s It  to 
ALP ( J)  : r. 

00  21  I = 1 ♦ I N 

21  ALP(J)  ALP(J)  ♦ A H AT  (I  , J ) * W ING  ( I)  / WATS  CX  ) 

W 27  = 0. 

.1(4)  - . (.» 
w 43  r G • 

VA  = I. 

00  22  I : Iilh 
SWINGII ) : wINot I) 

W l ( 4 ) s .1(4'  ♦ Oh  ( I )*WI  NCi  ( I I 

W 27  : W 2 i ♦ U I I.G  ( I 1 
IF  (RHOU>>  2s,  if,  2 4 
24  U 43  S W 4 i ♦ WING!  1 ) / 4H0( I ) 

GO  TO  22 
2s  VA  = 0. 

2 2 CONTINUF 

4 43  : V A/U4  3 7 

120  IF  (KP(4I  .nE.  1)  6 C TO  23 

IF  <KR<  1 7 ) .EC.  I)  to  TO  23 
wl(S)  = Wl  < 51  / i4.  70!U9 
IF  (KR(  7 | ,tO.  II  GO  TO  23 
w 1 < 6 ) : .l(6l/.4.7jCf.« 

X?  WRITE  (lb, 4)  (aSPFC(I),  I : 1,IS) 

WRITE  ( c , 4 ) (ASPEC(i),  I = 1 , 1 S » 

WRITE  t 1 o, 5 I 
WRITE  ( o,7) 

WRITE  ( It, 7 ) 

00  2 7 T : l,  IN 

IF  <KP<  5 ) . UC.  1)  GO  TO  27 

WRITE  < b,8  M&LOKI  1,  J)  , J S 1,5),  ( A MA  T ( I , J ) , J = 1 , 12  ) ,S>W  INb  ( I > , 
10 w ( I ),  RHO(  I) 

27  wRITt  ( lb, 8 HBLOKU,w)  , J = 1,5),  ( AMAT  ( I,  j)  , o R 1 , 12  ) , Slw  INb  ( I ) , 
l'DHtl  I,  RFO(  I) 

3b  FORMAT  UOHCXFP  VCLUKf  RATIOS  = ICF1C.5) 

SU  S o, 

00  34  1 t Mu 

34  SU  = SU  ♦ w IN  G ( I ) / Rh  0 ( I ) 

DO  3 5 I r l,  n, 

35  VOUT(I)  : W IN G (I) / R HC ( I ) /SU 
WRITE  ( 1 o , 3 6 ) (VOL’T(I),  I = 1 , IN  ) 

WRITE  ( c,9  ) U27 

WRI  TE  ( lo,9  ) W .. 7 

wRITE  ( c , 1 ' ) ( AS  r EC  ( I ) , I = 1 , I S ) 

WRITE  (Xt.lC)  ( A »F  E C ( I ) , I = I, IS) 

WRITE  ( b,6 ) ( «LP  < II,  I = 1, IS) 
wPITE  ( Is, 6 ) (ALP ( I I , I = 1, IS) 

IF  <KR(?t  ,NE.  II  Go  TO  28 
IS  : IS  41 

2c  IF  ( LF  . NF . I)  GO  TO  29 
IF  (IRUN  ,E0.  U)  GO  TO  2° 

00  3C  I : l.IRUN 
30  READ  (5,1) 

wPITt  < o,33) 

1 PUN  r n 

33  FORMAT  (bRUOMAVRE  THIS  TIMIO  MON  I TO  P WILL  TRY  THE  NFXT  SYSTEM.  ) 
24  RETURN 
END 
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SUBROUTINE  PVPLOT 

OCOMMON  A(12,12)«  K R ( 20 ) , A M A T (10,12)  , JAT(12>,  ASPfT.(12),  IN,  IS, 
1F1EI10,6),  11110,6),  A LP  ( 12 ) , *27,  N,  BL0KI1U,5>,  fH(lD),  RHOU0), 
2ISERK10),  UATEI1"),  *1(6),  *4 3,  IG  , NP  , VNH2ul),  *47,  NAME,  SER 
OCOMMON  MBRIUm/  T L < 2 CC*2  1 * TU(?P0,2),  *3(200  ),  VN U < 2C0 , 1 2 ) , CA, 

1 r AU , H ( 2 EG ) , Sul  200  ) , Y ( 200 ) • JC  , 1R<200,2>.  0MU(2u0),  VLNK ( 200  ) * 
2I0JI12),  RA (2  Of, 2 ) , PB<200,2),  RC(200,  2),  R0<2U0,2),  PE<200,2>» 

3RF ( 2 00 * 2 ) , CH  ( <.0U  , 2 ) , JM  , *46,  CP,  FN,  CU2,2C0>,  SPECIE  ( 21^  > 
4,LL<200) 

COHMON/EAPLO/  VL  ( ? U ) , PLI20),  VEL(2n»,  HT<20>,  TETI2C),  l,E 
CALL  GR I CIV  (1,  .2,  1,,  0.,  6"rC.,  .01,  IOC.,  10,  If  , 1C  ,1 U ,1  ,4  ) 

00  19  I : 1,S’E 
1X1  : IX- 
IP1  : I P 2 

151  = IS* 

IV1  : I V 2 
IC1  = I C - 

1X2  = NWIVLIlll 
PLC I ) : PL ( I > * .Of  . 

H T ( I ) : HT( I> /10. 

IP2  = NYvCAMINKPl.C  I),  6000.)) 

152  = NYV(AMIN1(HT<  I),  6 QOC  . ) ) 

IV2  : NYV(AMINi(VEL ( I) ,6000.  > > 

IC2  : NYVCAMINKTET  I I)  , 6000,)) 

IF  (I.EO.ll  GO  TO  19 

CALL  LINEV(IX1,IP1,IX2,IP2) 

CALL  L I N EV  ( IX1,IS1,IX2,IS2) 

CALL  LINEV4 IX 1 ,IC 1 , IX2.IC2) 

IF  <1  ,E0.  N£ ) 60  TO  19 

CALL  LIN£V(IX1,IV:,IX2,IV2> 

19  CONTINUE 


CALL 

APLOTV (30 , 

VL, 

PL, 

9,9,1, 

1KP, 

NLAST) 

CALL 

APLQTV (30, 

vt. . 

TET, 

9,9,1, 

1HT, 

NLAST', 

CALL 

APLGTV  <30, 

VL, 

VEL, 

9,9,!., 

1HV, 

NLAST) 

CALL 

APLOTV (30, 

VL  , 

HT, 

9,9,1, 

1HH  , 

NLAST) 

CALL  PRINTV433,  33HV0LUME  RATIO  ALONG  HU60NI0T  CURVE,  416,6  > 

CALL  APR  NTV  (0,-16,  61,  6 1H*  P RE  S SUR  E XIOU  *TEM PER ATUR E *VELO 
1CITY  AENTHALPY  /If  ,4,  992) 

RETURN 

END 


CHAIN  PROGRAM 

OCOMMON  A ( 12 , 1 2 I , KR(ZO),  AMAT(10,12),  UATI12),  AS  PE  C ( 12  ) , IN,  IS, 
IF  IE ( 10 , 6 ) , IE(in,tl,  A LP ( ! 2 ) , *27,  N,  BL0K(10,5>,  DH«10),  RHO(IO), 
2ISERK10  ),  KATLClt),  *1(6),  *43,  IG , NP,  VNT(2l,1>,  *47,  NAME,  SER 
OCOMMON  /19RIUM/  T L I 2 LO , 2 I , TU(200,2  ),  *31200  ),  VNU1200.12  ),  QA, 

IT  AU , HI2L0),  SDC2r,0),  Y(200),  JC,  IR(200,2),  DMU(2G0),  VLNM2C0), 
2I0JI12),  RA ( 2 Of , 2 ) , RB(20U,2),  RC(200V2),  R0(2f0,2),  RE ( 2eC ,2 ) , 

3RF ( 2U0 , 2 ) , CH  ( *00 , 2 ) , JM , 448,  CP,  FN,  C(12,20U),  SPECIE(2Q0) 

4 , LL ( 200  ) 

COMHON/EXPLO/  VL(*0),  PLI20),  VEL(20),  HT  ( 20 ) , TETI20),  NE 
COMM  ON  / M (JON  / TSTEST  ,TE 

770FORMAT( 19H0INITIAL  DENSITY  : , F 1 2 .6 , 6X  , 19H I N IT  1 AL  PRESSURE  = F12.6 
1/23H0DET  ONATION  PRESSURE  = , F 12 . 5 , 6 X , 22HDE TO NATIO N VELOCITY  : ,F12 
2,5) 

66CF0RMATI  1 9H0HEA T OF  REACTION  = ,F 1 1 .2 , 1 3X  , 19HP AR T ICLL  VELOCITY  =,F12 
1.2) 

3J0F0RHAT( 3t HO  IMPULSE  FROM  ISENTROPIC  EXPANSION:  ,F14.5) 

8688  CONTINJF 

8 CALL  PUT  IN  (LE) 

PIN  : * 1 (6) 

HIM  T Ml  <4| 

VIN  : 1.9871*427/443/. .8205 
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TErScno . 0 

CALL  GUESS! TE .PIN) 

CALL  CJOLT  ( V M IN ) 

CALL  HU30(PIN,HIN,VIN,PZERO,TE,HRZEBO,VMlN,SZERO,HZEfiO) 
TCH  = TE 
HE  = HIN 

803  VWAVLTS0fiT(  83  7b.0*(Hf<7ER0-HE > /W  2 7 ) 

90  5 LS  = 1 

CALL  OUT  (P  ZERO » TE.  HZERO,  SZERO,  LS) 

PR  = PIN 

90b  WRIT E(1 6 ,77  >U43,PP .PZERO.VUAVE 
WRITE!  6 ,77  )W43,PR .PZERO.VUAVE 
90  7 SOUNDVrSORT  (8  3 72.  ;>  ( HR ZE BO -HZERO  I/WZ7) 

PARTV  = VWAVE-SOUNDV 
SYSENTrSiERO 

CALL  S PAL  (TE,  PP.'hE,  SVSENT,  TCH,  D 
OHE -HE 

CALL  E0UiL!Z98.1b.PR,HE,ENTR,0) 

OHREAC  : (HZERO  - HO/IOOC. 

WRIT E(1 6 ,66 )DHKEAf .PAR  TV 
WRITE!  6 ,66  ) DHREA C , P AR TV 
E SI  = 9 . 3294*S0RT ( (HZERO  - 0HE)/WZ7) 

WRITE!  16 ,33  )FSI 
WRITE!  6 , 33 )F S I 
1G10  CONTINUE 

CALL  PVPLOT 
GO  TO  8888 
END 


SUBROUTINE  CJDlT  ( V H IN  ) 

CCOHMON  A 1 1 2 , 1 2 ) , KR(?0),  A HA T ( 1 " . 12  * t JAT(17).  *SPfcC(12),  IN,  IS, 
IF  IE  I 10 , 6 ) , IE  < 1C  , 6 ) , ALP  ( 12  ) , W27,  N,  SLQK!lO,i>),  ON  ( T C > , RHO(IO), 
ZlSERldO),  « A T c.  ( 1 1 ) , W 1!  6)  , W 43,  IG  , NP,  VNT(20l),  W4->,  NAME,  SER 
CCOMMON  /IBRIUM/  TL(20P,2),  TU  ( 2H  0 , 2 ) , W3(200),  VNU(?DO, 12 ) , (!  A, 
1TAU,  HC’uO),  Sb(2-"t)),  Y(ZPO),  JC,  I R (200,2),  OMU(ZoO),  VLNK  ( iCC ) , 

Z I OJ  ( 1?  ) , RA  ! 20 . ),  PB(20r,2>,  RC ( 2 CG, 2 > , RDIZw'i.Z),  REU00.2*, 

3R  F ( 2 00 , 2 I , Cl  ,,,.>,  JM,  W46,  CP,  FN,  CdZ.ZGJ),  S’fcCIEIZOO) 

4 , LL ( ZOO  ) 

COMMON/ EXPLO/  VLl'b),  PL(?G),  VEL(ZO),  HT(ZP),  TtTl?0)»  NE 
COMMON/ H00N/TS1EST , TONE 
PIN  : W 1 16) 

HIN  : U 1 (4) 

VIN  : 1 .987  l*Wz7/W47/,.i8t,,'5 
VONE  : VIN 

CALL  HUGO  (PIN,  H7N,  VIN,  PONE,  TONE,  HRONE*  VONu  , SONE,  HONfc) 

V L ( 2 ) : .. 

P L ( Z ) = PONE 

VEL  t 2)  - ♦!  OCioi.Cui  bi.’t o C. 

HTC-'l  = hONE-HIN 
TET(I)  8 TONE 
VONE  = , s5*  VIN 

CALL  HU  G u (PIN,  HIN,  VIN,'  PjNE,  TONE,  HRONE,  VONE,  'ONE,  HONE) 

V L ( 1 ) = .85 
PL ( 1 ) = PONE 

V EL  I 1 ) : SORT ( o372 .♦ (HPONr-HIN) /W27 ) 

HTIII  : HONE-HIN 
TET(l)  : TONE 
NE  : 2 
UL  = .28 
IM  : I 

DO  19  Hz  1,9 
NEM  : NH 
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DO  K i : IM,NE,'‘ 

I L z HE  ♦ 2 ♦ AM  — I 
VUIl)  = VUIL-D) 

PL ( XL  t = PL  <IL-2) 

TET  ( IL  ) : TETIIL-.:» 

VEL  ( IL  ) : VUl  XL-?) 

X A H T ( I L ) : HT  (IL-2) 

V L ( I M. 1 ) : VL (IM) 

PL  < IH.l  ) r PL  « A M ) 

TfT  I 1"*  1 I = TEllI'fl 
HT(IM*1  » = HT  < XMJ 

V EL ( IM*  X ) : VElU*  ) 

VL  ( IM.2  1 r VL  ( IM*  1 ) ♦ OL 

VL(IM)  : VL  (IM*H  - LiL 
IL  = IM  .2 
1)0  IS  J = IM  » XL  # ' 

V ON  E r V L I J ) * '/  a N 

CALL  HUGO  (PIN,  HIS,  VIS,  PONE,  TONE,  HRONE,  VuNE , SONE,  HONE) 
PL  < J ) = PONE 

VEL(J)  = SORT (o^7I .♦ (HRONE -HIS) /W27 ) 

TcT  t J)  = TONE 
Is  HT(J)  : HOSE  - HI > 

AX  : VEL  (IM+1) 

A 2 : (VELCXM*2)*Vf L(  IM)) /2,/OL 

AS  : JVEL(IM)  ♦ VEL(IM»2)  - 2,*VELIIMU>>/2./DL/i)L 
VMINP  = Vt’IN 

V MX N : VLUM+l)  - A2/7./AI 
OELP  : OtL 

DEL  : A B i ( V MI  S'  ”VM  I NP  ) 

DO  17  I = 1,2 

IF  (VEL(.M)  .LI.  VLL(IH«1))  GO  TO  1C 
17  IM  : IM  .1 
1 6 NE  = NE  ♦ i 

19  OL  = OL/  4 « 

V MI N - VMIN*VIS 
RETURN 

END 
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Appendix  J 

SUBROUTINE  VERSION  OF  PEP 


By  exchanging  the  main  program  and  input  routine  with  the  subroutines  below,  one  obtains  a 
version  of  the  program  that  may  be  made  a satellite  of  another  main  program.  This  has  been  done 
for  the  final  reduction  program  for  airbreathing  propulsion  tests. 15 


subroutine  pfps 

(.'COMMON  4(12,12),  KK(20),  4M4T(lo,12>,  J4T(12),  ASPLC(12),  IN,  IS, 
IF  IE  ( 10,6),  IE(10,M,  4 LP  t 1 2 ) , 427,  N,  BLOK  t 1 U,  b > , DH(10),  RHO(IO), 
2ISERII10  ),  4ATl(*M,  U 1<  6)  , 4 43,  IG , NP , VNTI2U1),  447,  NAME,  SER 
(’COMMON  /1BRIUM/  TLCGn,?),  TU(2D0,2>,  43(200,  VN U ( 2CD , 12 > , OA, 
1TAU,  H t ? ctl)  , SUIT'D),  Y(2H0),  JC  , IPt20^,D,  OHUUun),  VLNM200), 
21 OJ  ( 1?  ) , RA(2fO,2),  PP(20n,2),  RC(20r,2),  R0(2u0,2),  RE(20G,2), 

3R  F ( 2 QC , 2 ) , CHI20U.2),  JM  , 448,  CP,  FN,  C(12,20C),  SPECIE(2uO) 

4,LL ( 200  ) 

COMMON/ M CON /TSTEa  . ,TL,IRUN 

COMMON/ P tSULT /SP1  (O  ,AST (?) ,GAM( 2), CF(2),E V( 2) ,R1SP(2) ,0EX(?) , 
XTHRT (?)  , TEX (2 ) .TCOMB ,ENTH(2) ,ENTR0( ? ),GASM (2  ),RTV U ) 

TCH  : 34o7. 

Tf.=  AMAXKTCH,  GGiJ.P) 

TCEST  r n. 

TE  = AM  I hi  (TE,  5001'. . I 
PR=4i<5  ) 

1 5 IF  (KP ( 7 ) , £0 . 3)  GO  TO  14 

r e = wi(bi 

VNT(NP)  ; EL0G(.Uf  2u5*WH6)/Wl(5)) 

CALL  E0U1L  (TE,  P F,  HE,  SE,  1) 

PR  r FN*VNT  (NP  ) 

SYSEhT  r SE 

00  TO  8 

14  CALL  H PAL  (TE,  PR,  5YSENT,  1) 

12  TCH  = TE 
TC0Mb=TCH 
ENTH  (1  > : * 1 ( 4 ) 

ENTPOd  USYSEMT 
G ASM  (1 ) :FN 
R TV  ( 1 ) : V NT  ( NP  ) 

G AM ( 11= CP/ (CP-FN*! .9671) 

GASM (?) =0. 

1 GP  = IG ♦ 1 
00  1 I = 1GP,N 

1 GASM (?) = u A S M ( 2 ) ♦ V N T ( I ) 

<1  RETURN 
END 


•;.***- 


a^USCEDING  PAGE  HOT  FILMED 
'BLANK 


^ Naval  Weapons  Center.  The  Final  Reduction  Program  for  Airbreathing  Propulsion  Tests  at  T-Range,  Theory 
and  Usage,  by  L.  R.  Cruise.  China  Lake,  Calif.,  NWC,  January  1978.  (NWC  TM  3364,  publication  UNCLASSIFIED.) 
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$UB  ROUT  I liF  P U T IN  5 < I SE  R,  WT  S I 
DIMENSION  ISER(Ul),  *TS<  ID 

OCOMMON  A(12,12),  mkUP),  »H»mn,12l,  JAT(1?>,  ASPEC(12>,  in,  is. 
IF  IE  ( ID , 6 I , IEIlO.f),  ALPM2),  W?7,  N , eiOKtlC.S),  UH(10>,  RH0I10), 
2ISERK1PI*  WATt(lP),  U1C6I,  W43,  16,  Np  , VNT(2uli,  U47,  NAME,  SER 
COMMON  I TAG ( 1 Du) , w I NG ( I 0 ) 

COMMON/ IlINEO/aAAA (6 ) 

DIMENSION  A Ty  T ( 10D  ) , SwING(lO) 

COMMON/ MOON /T S TES T ,TE, IRUN 

DATA  ( A T uT ( I ) , I : 1 , 1 00 ) / 1 . 0 P8 , 4. "03,  6.94,  9.Ul 3,  10.6?,  12.011 
1,14. One,  16.,  i.9.,  2 0.1*3,  22.99’,  24,  32,  26  .96,  26.09,  30.975, 

2 32.066  , 35.45  /,  39.944,  39.1,  40. 08,  44.96,  47.9,  5C.9S,  52. Pi, 

4 54.94,  56.65,  56.94,  56.71,  63.54,  65.38,  69.72,  72.6,  74.92, 

5 78.96,  79.  916,  83. 8C,  85.48  , 87.63  , 88.91  , 91.72  , 02.91  , 95.95, 

6 99.,  1 01.1  , 1 u2. 5 1 , 106.4,  1C7.88,  112.41,  114. t>2,  1 18.7,  121.76, 

7 127.61,  126.91,  131.3,  132.91,  137.36,  133.92,  1 4u.l3,  14U.91, 

8 144.77,  147.,  15" • 35,  152.,  15’. 26,  153.93,  162.51  , 164.94  , 167.2 

97,  164.94,  173.04,  174.99,  17e.5Q,  ISC. 95,  163.86,  186.22,  190.2, 

1 192.?,  195. PO,  ir  / , , 220.61,  204.39,  2D7.21,  208.99,  210.,  210., 

2 222.,  2<3.,  2*6.,  227.,  ?32.,  231.,  236.,  237.,  237. , 12. 01 , 9. 031 . 

310.82,24.32,26.98,  253.  / 

LE  : 0 

IF  (IPUN  .NE.  J)  GO  TO  19 
1 1 DO  12  I = 1,1. 

12  JAT ( 1)  C P 
KP=1 

REWIND  11 
READ (11 , 111 U) V» 

DO  13  1 = lt In 

K =1  S ( I I 

IF  UP  .LT.  K)  6C  TC  1117 
REWIND  1* 

READ  (11  , iUG)  VA 
KP  = i 

111  7 00  1 113  u^KP.K 

1113  READ  (11  ,U1Q)(VNT(L),L=1,12) 

111 J FORMAT  ( i 1 A 6, A 5 ) 

KP  = K «1 

1115  CONTINUE 

13  DECODE!  2 ,VNT)  (uLOM  ( I ,J),U-'l,  5 >,  <FIE  ( I,  J),IEC  I,  J>»  J=1 ,6)  , 

1 DH  ( I ) , RHO (I) 
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£ F OR  H AT  ( SA6  , 6 t F 3 . 3 , A21,  F5.C,  F6.?,  17) 
CALL  STOICH(LE) 

DO  Is  I = 1 * I N 
l.  ATE  (I)  = C. 

00  14  J = 1,IS 
K : JAT(u) 

14  W AT  £ < I ) = WATEII)  ♦ AM AT  II , J ) * A T W T I K ) 

CALL  SE  * KCH <L E ) 

18  IF  (K9<?>  . ME  • 1)  GO  TO  19 
IS  : IS  -1 

1 9 00  1 199  1=1  , IN 
1199  WING !I ) SfcTS (T  ) 

20  K P ( 15)  s ” 

0021  J = 1, IS 
ALP(J)  = 0. 

00  21  I = 1 * IN 

21  ALP ( J)  = AlP(J)  ♦ AKATtI*J)*HINGCI)/wATE(I ) 
427  = 0. 

Wit  4 I = L. 

W 43  =0. 

VA  : 1. 

DO  22  I = 1 * I N 
S Ul N G ( I I = VINGII  ) 

WtO!)  = m 1 1 4 ) * 0H(  I 1*WING(  I ) 

U 27  = W 2 7 ♦ W ING(  I ) 

IF  1 RHO  ( 1 ) ) 25.2  f.  *24 

24  U43  s W 4 3 * WlNGin/RHOm 
GO  TO  22 

25  VA  s r. 

22  CONTINUE 

W 43  s VA/W43  *W2  7 
120  IF  (K9<4  ) ,NE.  1)  CO  TO  ?3 
IF  <KR< 17)  .EO.  1)  00  TO  23 

W 1 ( 5 ) S •l(S)/i4,7U0t9 
IF  <KR ( 7 ) .EQ . 1)  GO  TO  23 
Wl(6)  S wKM/14. 70069 

2 3 DO  27  I = 1,  If* 

27  IF  (KOI  2)  .NE.  1)  GO  TO  28 
IS  = IS  +1 

28  CALL  GU  E S$ ( 25 00. * S U • ) 

29  RETURN 
END 
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NOMENCLATURE 


Note:  Symbols  are  listed  in  the  order  of  their  appearance  in  text. 


S 

N 

C 

cik 

/(/')  1 <f<S 
bjk  ~ ci(j),k 

nHi) 

B 

bfk 

v 

Si 

R 

T 

At 

«/ 

«/ 

m 

A 


Number  of  chemical  elements 
Number  of  molecular  species  (jV  > S ) 

Molecular  composition  matrix 
Elements  of  composition  matrix 
A given  choice  of  basis  species 
Composition  matrix  of  basis  species 
Molar  amounts 
Optimized  basis  matrix 
Element  of  basis  matrix 
Matrix  of  reaction  coefficients 
Equilibrium  constant  for  rth  reaction 
Gibbs  free  energy  for  >th  species 

Gas  constant  (1.9871  cal/K-mole  * 0.08205  K-atm/K-mole ) 
Temperature 

Small  difference  in  reaction  coordinate 
Molar  amounts 

New  composition  after  adjustment  of  ni 
j i for  gas  ) , 

Phase  parameter  \ 0 for  conciensed  / for  ,th  sPec>es 
N 

WjTj  = RT/V 


P 

Qi 

f(T) 

li'.T) 

sen 

So 


H\,V  l.7’i^S|1/,1 

//2,E2'7’2^2^2 


Pressure 

Guess  for  equilibrium  constant 

H(T)  - H()  or  S(T)  - S()  in  enthalpy  or  entropy  balance  procedure 
Enthalpy  at  temperature  T 
Reference  enthalpy. 

Entropy  at  temperature  T 
Reference  entropy 
Specific  heat  at  constant  pressure 
Degrees  Kelvin 
Chamber  state  variables 
Exit  plane  state  variables 


'4fc£CEBING  PAGE  NOT  FILMED 
1LANK 
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v [ y2 

hp 

SMKS 

J 

m 

y 

L 

Jc 

yv 

in 

k 

P 

v 

A 

P*,A* 

Cf 

C* 

SFPS 
A U 

K 

P* 


Volume 

Specific  impulse 

Acceleration  of  gravity  in  SI  units 
Mechanical  equivalent  of  heat 
Mass 

Cp/Cv  - ratio  of  specific  heats 
Conversion  factor 

A parameter  that  equals  y only  for  a perfect  gas 

Isentropic  exponent  (PV^v  = constant).  A parameter  that  equals  y only  for 
a perfect  gas 
Mass  flow 
10-^  liters/m^ 

Density 

Velocity 

Duct  cross-sectional  area 

Nozzle  throat  values 

Throat  coefficient 

Characteristic  velocity 

Acceleration  of  gravity  in  common  units 

Ideal  boost  velocity 

Acceleration  due  to  gravity 

Switch  density 
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INITIAL  DISTRIBUTION 


20  Naval  Air  Systems  Command 


AIR-03B  (I) 

AIR-503  (1) 

AIR-5312  (1) 

AIR-03P2  (I) 

AIR-503E  (1) 

AIR-53232  (1) 

AIR-03212  (2) 

AIR-51  OB  (1) 

AIR-5332  (1) 

AIR-320  (1) 

AIR-5108  (1) 

AIR-5351  (1) 

AIR-320C,  V/.  Volz,  (1) 

AIR-5 109(1) 

AIR-5366  (1) 

AIR-330  (1) 

AIR-5203  (1) 

5 Chief  of  Nava!  Material 

AIR-340B  (1) 

AIR-52032C  (1) 

5 Chief  of  Naval  Material 

MAT-030  (1) 

NSP-27  (1) 

MAT-030B  (1) 

NSP-273I  (1) 

MAT-032  (1) 

5 Naval  Sea  Systems  Command 

SEA-03  (1) 

SEA-04H  (I) 

SEA-031  (1) 

SEA-6531  (1) 

SEA-033  (1) 

3 Marine  Corps  Development  and  Education  Command,  Quantico  (Marine  Corps  Landing 
Force  Development  Center) 

1 Air  Test  and  Evaluation  Squadron  5 
1 Fleet  Analysis  Center,  Sea!  Beach  (Library) 

1 Naval  Air  Development  Center,  Warminster  (Code  3014) 

1 Naval  Ammunition  Depot,  Hawthorne  (Code  05,  Robert  Dempsey) 

1 Naval  Explosive  Ordnance  Disposal  Facility,  Indian  Head 
1 Naval  Intelligence  Support  Center  (OOXA,  Cdr.  Jack  Darnell) 

6 Naval  Ocean  Systems  Center,  San  Diego 
Code  133(1) 

Code  61 33,  R.  Hagan  (1) 

Code  6341 
Caraher  (1) 

Rathson  (1) 

Shadduck ( 1 ) 

Sorenson  (1) 

1 Naval  Ordnance  .Station,  Indian  Head  (Code  FS,  A,  T.  Camp) 

1 Naval  Postgraduate  School,  Montemy  (Prof.  Netser) 

1 Naval  Ship  Research  and  Development  Center,  Belhesda  (Code  166,  John  F„  Talbot) 

5 Naval  Surface  Weapons  Center,  Dahlgren  Laboratory,  Dahlgren 

Code  CG-33  (!) 

Code  DGO  ) 

Code  DGoG  (I) 

Code  CR-22,  E.  Baroody  (2) 

2 Naval  Surface  Weapons  Center,  White  Oak 

Code  312,  W.C.  Ragsdale  (1) 

WR-12.H.  Heller  (1) 

i Naval  Intelligence  Support  Center  Liaison  Officer  (LNN) 

1 Army  Materiel  Readiness  Command,  Rock  Island  (DRSARLEM) 

1 Army  Missile  Research  and  Development  Command,  Redstone  Arsenal  (AMSMl-RK.  Dr.  R.  G.  Rhoades) 

4 Army  Armament  Research  and  Development  Center  (SMD,  Concepts  Branch) 

1 Army  Ballistics  Research  Laboratories,,  Aberdeen  Proving  Ground  (DRDAR-TSB-S  (STINSO)) 


2 Air  Force  Systems  Command,  Andrews  Air  Fore  Base 
DLFP(l) 

SDW(l) 

i Air  Force  Aero-Propulsion  Laboratory,  Wilght-Patterson  Air  Force  Base  (RJA) 

8 Air  Force  Armament  Laboratory,  Bglin  Air  Force  Base 
DLD(l)  DL0(1) 

DLDE(l)  DLODL(l) 

DLJW(l)  DLQ(l) 

DLMI,  Aden  (1 ) DLR(l) 

1 Air  Force  Rocket  Propulsion  Laboratory,  Edwards  Air  Force  Base  fMKCC) 

1 Air  Force  Rocket  Propulsion  Laboratory,  Edwards  Air  Force  Base  (MKP) 

1 Foreign  Technology  Division,  Wright-Patterson  Air  Force  Base  (Code  PDXA,  James  Woodard) 
5 Wright-Patterson  Air  Force  Base 


AFAPL 
RJA  (1) 

RJT(l) 

STINSO  (1) 

XKDP(l) 

XRHP(l) 

1 Defense  Advanced  Research  Projects  Agency,  Arlington 
12  Defense  Documentation  Center 

1 "Department  of  Defense  Explosives  Safety  Board,  Alexandria  (6-A-J45) 

1 Lewis  Research  Center  (NASA),  Cleveland 

1 Aluminum  Corporation  of  America,  Alcoa  Center,  PA  (W.  E.  Wahnsicdler) 

1 Applied  Physics  Laboratory,  JH1J,  Laurel,  MD  (W,  B.  Shlppen) 

I Atlantic  Research  Corporation,  Gainesville,  VA  (Phillip  H.  Graham) 

1 Beech  Aircraft  Corporation,  Wichita,  KS 
J Convair  Division  of  General  Dynamics,  Sun  Diego,  CA 
1 Ford  Motor  Company,  Dearborn,  MI  (C.  J.  Litz,  Jr.) 

1 Grumman  Aerospace  Corporation,  Bethpage,  NY 
1 Holex,  Inc,,  Hollister,  CA  (Howard  Dllts) 

! Honeywell  Corporate  Research  Center,  Bloomington,  MN 
1 Hughes  Aircraft  Company,  Culver  City,  CA 

1 Hughes  Aircraft  Company,  Missiles  Systems  Division,  Canoga  Park,  CA 
i MBA  Associates,  San  Ramon,  CA  (Glen  Hopkins) 

) McDonnell  Douglas  Corporation,  St,  Louis , MO  (J.  L.  Bledsoe,  Dept.  E241) 

1 Marquardt  Corporation,  Van  Nuys,  CA 
1 Martin-Marietta  Corporation,  Orlando,  FL 

1 Montana  Energy  and  MHD  Research  and  Development  Institute,  Inc.,  Butte,  MT 
l North  American  Rockwell  Corporation,  Columbus,  OH  (R.  C.  Wykes) 

I Olin  Corporation,  Energy  Systems  Division,  Marion,  IL  (I.  L.  Markovitch) 

1 Ryan  Aeronautical  Company,  San  Diego,  CA 
1 The  Boeing  Company,  Seattle,  WA 

1 United  Aircraft  Corporation,  East  Hartford,  CT  (Research  Laboratories,  R.  L,  O’Brien) 

1 United  Technologies,  Chemical  Systems  Division,  Sunnyvale,  CA  (T.  D.  Meyers) 
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